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PROVISIONAL SPECIFICATION 

Invention Title: SYSTEM FOR CUSTOMISING OUTLOOK 



The invention is described in the following statement: 



SYSTEM FOR CUSTOMISING OUTLOOK 

FIELD OF THE INVENTION 

The present invention is related to an improved methodology for using 
Microsoft Outlook and in particular a system for customising Outlook to enable 
this methodology. 

BACKGROUND OF THE INVENTION 

A counter-intuitive electronic workplace organizational culture has 
emerged in direct response to the challenges posed by the present state of 
workplace organizational methodologies. Microsoft OUTLOOK is the single most 
prevalent desktop personal organizational software found in the workplace today 
but most people in any given workplace have been left to their own devices to 
best organize themselves in the administration of their personal daily work. No 
system common to ail has emerged. That there is no universality in personal 
organizational practices whilst working on the potential/actual networked platform 
which Microsoft OUTLOOK represents is actually defeating the essential 
productivity aims for which such software was developed in the first place. 
Statistics show that IT has not increased overall workplace productivity for the 
average office worker. It has simply created more work for them. 

The majority of work activities emanate from various electronic 
communications, whether they be emails, faxes or PDA's for example. The 
challenge is to find a system to hold all this together, to allow easy recall of data 
and to provide peace of mind that all is organised in one place to relieve the user 
of the mind clutter caused by managing all of these communications and the 
intricacy of their content from a mere list. 
OBJECT OF THE INVENTION 

It is an object of the present invention to customise Microsoft Outlook to 
enable a user to increase productivity and organisation of their work. 
SUMMARY OF THE INVENTION 

With the above object in mind the present invention provides a system to 
configure a user's email program, such as Microsoft Outlook wherein at least one 
toolbar of the user's email program is modified to provide said user with a plurality 
of buttons, said buttons allowing said user to process each incoming email by 
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dealing with the email immediately, scheduling said email into said user's diary, 
delegating said email to another person or deleting said email. 

In a further aspect the present invention provides a system to configure a 
user's email program wherein at least one toolbar of said user's email program is 
5 modified to provide said user with a plurality of buttons, said buttons enabling said 
user to select different productivity principles related to each of said buttons, and 
work is then scheduled onto said users personal workload depending on the said 
productivity principle selected. 
BRIEF DESCRIPTION OF THE DRAWINGS 
10 Figure 1 shows a flow diagram of actions available to a user for incoming 

emails received following implementation of the present invention. 

Figure 2 shows a flow diagram of the overall working system following 
implementation of the present invention. 

Figures 3 to 5 show screen shots of a configured Outlook in accordance 
1 5 with the preferred embodiment of the present invention. 
DESCRIPTION OF PREFERRED EMBODIMENT 

The present system seeks to provide a means by which each email 
received by a user is handled once and a user's work environment is optimised. 
This is based on intellectualizing the work emanating from eiach individual email 
20 at the time it is first handled by a user, proactively scheduling to undertake the 
work resulting from each email, gathering together the various electronic 
resources to undertake that work at the same time as the work is scheduled onto 
the user's personal workload. 

Work may be defined as Interactions with others which results in: (a) 
25 activities involving face-to-face time in meetings and appointments; (b) activities 
involving work output with a deadline; (c) activity involving work output without a 
deadline; and (d) mental activity which is related to ones work. 

The arrangement that the present system seeks to implement is the idea 
that each email is handled once, and one of four actions is applied to each email 
30 received. These four actions can be: 

Deal With It Now - utilizing the email "Reply' feature - whereby the person 
attends to the work immediately, after which the email can be deleted. 



Decide What To Do With It - utilizing the 'Move Item To 5 feature - whereby 
the user chooses to proactively schedule and/or organize the work by use of 
functionality available within Microsoft OUTLOOK. After applying this action to an 
email the next step is to use the custom features provided with the present 
system to gather together other electronic resources from the computer or 
network so that when the time comes to actually undertake the work, all that is 
required is on hand and readied for use. 

Delegate It - utilizing the email 'Forward' feature - whereby the user elects 
to give the work to another person to do. The email may then be deleted. 

Delete It- assimilate the work involved and then delete the email from the 
system. 

These four actions serve the purpose of applying productivity principles 
achieved with the present invention. It also 'dears' the user's Inbox of email and 
illustrates that all work in hand has been considered, scheduled for action and 
organized for maximum personal productivity purposes. 

At the end of each working session the user may also elect to apply one of 
the four actions to each item in their Sent Items folder. This can empower 
intuitive filing possibilities and management of work due back to the user from 
others which has been issued throughout the working session. 

Whilst not all work is received by email the system can handle such work. 
By using Contacts and making a Projects folder (containing Contact items), all 
email, task and calendar activities in relation to people and projects are related for 
ease of activities audit. Three specific features in the Contacts and Projects 
folders enable this: Craft Email, New Appointment, New Task. When using these 
three features, the system utilises the custom features provided with Outlook to 
gather together other electronic resources from the computer or network so that 
when the time comes to actually undertake the work, all that is required is on 
hand and readied for use. 

To best enable the above steps the present system customises Outlook as 
detailed herein. The user's Outlook may be configured using an application or 
macro that can be provided to the user. In essence this application virtually 
configures the main toolbar, and then configures an open items toolbar. In order 



to configure the main toolbar, the system should undertake the following eight 
steps 

step 1 : 

Make a list for ""Template Outlook Setting's"" toolbar controls. 
5 Open OutLook; 

Reset and hide all Toolbars; 

Create a new folder for contact items and name it "Projects"; 
Make a new Group called ""Work From An EMPTY INBOX!""; 
Create the "Projects" folder's shortcut in the new Group and rename 
1 0 to ""Template Outlook Setting" ,M s setting; 

step 2: 

Select a folder; (for example: TaskFolder) 

step 3: 

Get a control from ""Template Outlook Setting's"" control list; 

15 step 4: 

Find this control (button or. other control) from the invention's 
Outlook Setting Template in Outlook's controls. 

a), if this control is Visible then rename it to ""Template Outlook 
Setting's"" command/setting; for example: "Help" ->"Microsoft Help"; 
20 b). if this control is not visible then copy it to "MainBar" and set it to 

visible and name it; 

c) . if this control cannot be found or it can be found but cannot be 
set to visible then create a new control in "MainBar"; 

d) . set this control's tag = 0, indicating proprietary Template Outlook 

25 control. 

step 5: 

Loop step 3 and step 4 until all the controls have been set; 

step 6: 

Loop step 2-5 until all folders have been set. 

30 step 7: 

Reset these controls' index. 

step 8: 

Correct any controls that show incorrect location or visible status. 



Once the main toolbar has been configured the system then sets the open 
items window toolbar. Ideally this is achieved using the following steps: 
step 1 : 

Make a list for ""Template Outlook Setting's"" open item window's 

main toolbar controls; 

Make a list for ""Template Outlook Setting's"" open item window's 

standard toolbar controls; 

Reset and hide all Toolbars where possible; 

step 2: 

Go to a folder; 

Open the first item; if no item/create a new item; 

(For example: TaskFolder, open the first task, if no existing task, 

then open a new task window) 

then do flow step 1 on this window; 

step 3: 

Set the main toolbar first, so set current toolbar = main toolbar; 
Get a control from ""Template Outlook Setting , s ,M, open item 
window's required current toolbar control list; 
step 4: 

Find this control (button or other control) from the invention Outlook 
Setting Template in Outlook's controls; 

a) , if this control is Visible then rename it to ""Template Outlook 
Setting's"" command/setting; 

b) . if this control is not visible then copy it to the current toolbar and 

set it as visible and name it; 

c) . if this control cannot found or it can be found but cannot set to 

visible then create a new control in the current toolbar; 

d) . set this control's tag = 0, indicating proprietary Template Outlook 

control; 

step 5: 

Loop step 3 and step 4 until all the controls have been set; 

step 6: 
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Loop step 3 and step 4 and step 5, setting current toolbar as 

standard toolbar; 
step 7: 

Loop step 2-6 until all folders 1 open item windows have been set; 

step 8: 

Reset these controls' index; 

step 9: 

Correct any controls that show incorrect location or visible status 
The system to configure Outlook may be created using the source code 
attached in the appendices. This code has been designed for versions of 
Microsoft Outlook greater than Outlook 97, although it is yet to be fine tuned for 
Outlook 2003. It is understood that some views in Outlook 2003 may require 
some fine tuning to the source code of the appendices. 

Referring to Figure 3, the shortcut icons which are preferably made 
available once the system has customised Outlook are shown. It is noted that in 
the Applicant's invented arrangement Calendar has been renamed to My Diary. 
Whilst renaming is not necessary, doing so does assist in the user's 
understanding of the system. Similarly, if desired the other various programs or 
components of Outlook may also be renamed. It is also noted that the present 
system renames Notes to read Ideas. Further the system does create a new 
folder called Projects which is used to store such work. Once configured in 
accordance with the present system, if a user was to select My Diary a screen as 
exemplified in Figure 4 may be seen. It can be seen that the ideal shortcuts are 
provided on the left hand side of the screen enabling the user to easily switch 
between the various components of the system. An expanded one day calendar 
view is provided towards the centre of the screen easily showing the user any 
appointments that may have been scheduled for that day. A three month forward 
calendar is also ideally provided. Details of the work required for the day and 
priority may be shown below the forward calendar. 

The system does add a new special toolbar across the top of the screen 
which reflects the principles of the system which seeks to always perform one of 
four actions for each incoming email. This enables the user to quickly process 
each incoming email. 



The four main options presented to users are shown on Figure 5. Here it 
can be seen that the options to "Deal With It Now", "Decide What To Do With It", 
"Delegate it", or "Ditch It" are shown. Different labels could be selected 
depending on the implementation and any specific terminology preferred by an 
5 organisation. For example "Ditch It" could simply be "Delete". If a user was to 
open an incoming email as shown in Figure 5, they would then upon reading the 
email need to determine which of the four options should be proceeded with. 

Once the present system has customised the user's Microsoft Outlook 
such that it is configured in accordance with the premise of the present invention, 
10 the user will be able to improve their efficiency and productivity by following the 
simple principles on which the present invention is based. That is, the user is 
encouraged to progressively work through the emails in the Inbox, and undertake 
one of four tasks in respect of each email. This is exemplified in Figure 5. Here it 
can be seen that for each item in the Inbox, the user is faced with four options, 
15 they may deal with the email immediately if the work matter must be attended to 
immediately. Alternatively, they may schedule and organise the work for a later 
time, delegate the work to another person, or assimilate the contents of the email 
and delete the email. Should the user proactively schedule the work to be done 
at a later date, they will be able to make a new calendar entry if a meeting is 
20 required, or make a task entry should the user be required to do the task at a later 
date. This task may be given a priority of High, Normal or Low, depending on the 
urgency of the matter. The user may also note an idea or create a new project or 
new contact following receipt of the email. Alternatively, the email may enable 
the user to update a project or contact. 
25 The user should also be encouraged to use a similar system for sent 

emails at the end of a day The overall process of the preferred implementation 
once the user's Outlook is configured in accordance with the present invention is 
shown in Figure 2. In figure 2 it can be seen that the user reviews each email in 
their Inbox, handles the email in accordance with the outline of Figure 1, and then 
30 prioritises this work such that it is scheduled and organised throughout the day. 
Similarly, the user may review each of their sent emails at the end of the day and 
again prioritise and follow up as necessary. This arrangement is based on the 
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premise that the user should endeavour to maintain an empty Inbox and ensure 
that emails and work are scheduled and categorised appropriately. 

The present system enables Microsoft Outlook to be configured in such a 
way that a user will be able to more optimally manage their email inbox, and 
thereby enable the user to better control their own working environment. 

DATED this 9th day of February 2004 
COMMONSENSE BUSINESS SYSTEMS INC 
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APPENDIX 1 

VERSION 1.0 CLASS 
BEGIN 

MuItiUse = -1 True 

Persistable = 0 'NotPersistable 

DataBindingBehavior = 0 VbNone 

DataSourceBehavior =0 VbNone 

MTSTransactionMode =0 'NotAnMTSObject 

END 

Attribute VB_Name = "CIassCmdControl u 
Attribute VB_GlobalNameSpace = False 
Attribute VB__Creatable = True 
Attribute VB_Predeclaredld = False 
Attribute VB JExposed = False 

Attribute VBJExt_KEY = "SavedWithClassBuilder6" , n Yes" 
Attribute VB_Ext_KEY = Top_Level" ,"Yes" 

Private mvarlD As Long 
Private mvarAdaptiveMenu As Boolean 
Private mvarBuiltln As Boolean 
Private mvarEnabled As Boolean 
Private mvarHeight As Long 
Private mvarLeftx As Long 
Private mvarNamex As String 
Private mvarNameLocal As String 
Private mvarPosition As Long 
Private mvarProtection As Long 
Private mvarRowlndex As Long 
Private mvarTop As Long 
Private mvarTypex As Long 
Private mvarVisible As Boolean 
Private mvarWidthx As Long 
Private mvarBeginGroup As Boolean 



i;o 

Private mvarCaption As String 
Private mvarDescriptionText As String 

Private mvarHelpContextld As Long 
Private mvar Index As Long 
Private mvarOnAction As String 
Private mvarParameter As String 
Private mvarPriority As Long 
Private mvarTag As String 
Private mvarTooItipText As String 

Private mvarBuiltlnFace As Boolean 
Private mvarFaceld As Long 
Private mvarHyperlinkType As Long 
Private mvarShortcutText As String 
Private rnvarState As Long 
Private mvarStyle As Long 
Private mvarList As Collection 
Private mvarListHeaderCount As Long 
Private mvarDropDownLines As Long 
Private mvarDropDownWidth As Long 
Private mvarListlndex As Long 
Private mvarTextx As String 

Private mvarCommandBar As ClassCmdBar 

Private mvarUsed As Boolean 

Public Property Let Used(ByVal vData As Boolean) 

mvarUsed = vData 
End Property 
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Public Property Get Used() As Boolean 

'Syntax: Debug.Print X.Used 

Used = mvarUsed 
End Property 



Public Property Set CommandBar(ByVal vData As ClassCmdBar) 

'Syntax: Set x.CommandBar = Forml 

Set mvarCommandBar = vData 
End Property 

Public Property Get Command Bar () As ClassCmdBar 

'Syntax: Debug.Print X.CommandBar 

Set CommandBar = mvarCommandBar 
End Property 



Public Property Let Textx(ByVal vData As String) 

'Syntax; X.Textx = 5 

mvarTextx = vData 
End Property 

Public Property Get TextxQ As String 
'Syntax: Debug.Print X.Textx 



Textx = mvarTextx 
End Property 
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Public Property Let Listlndex(ByVal vData As Long) 

'Syntax: X.Listlndex = 5 

mvarListlndex = vData 
End Property 

Public Property Get ListlndexQ As Long 

'Syntax: Debug.Print X.Listlndex 

Listlndex = mvarListlndex 
End Property 



Public Property Let DropDownWidth(ByVal vData As Long) 

'Syntax: X.DropDownWidth = 5 

mvarDropDownWidth = vData 
End Property 

Public Property Get DropDownWidthQ As Long 

'Syntax: Debug.Print X.DropDownWidth 

DropDownWidth = mvarDropDownWidth 
End Property 
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Public Property Let DropDownLines(ByVal vData As Long) 

'Syntax: X.DropDownLines = 5 

mvarDropDownLines = vData 
End Property 

Public Property Get DropDownLines() As Long 

'Syntax: Debug. Print X.DropDownLines 

DropDownLines = mvarDropDownLines 
End Property 



Public Property Let ListHeaderCount(ByVal vData As Long) 

'Syntax: X.ListHeaderCount = 5 

mvarListHeaderCount = vData 
End Property . 

Public Property Get ListHeaderCount() As Long 

'Syntax: Debug. Print X.ListHeaderCount 

ListHeaderCount = mvarListHeaderCount 
End Property 



Public Property Set List(ByVal vData As Collection) 
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'Syntax: Set x.List = Forml 

Set mvarList = vData 
End Property 

* 

Public Property Get List() As Collection 

'Syntax: Debug. Print X.List 

Set List = mvarList 
End Property 



Public Property Let StyIe(ByVal vData As Long) 

'Syntax: X. Style = 5 

mvarStyle = vData 
End Property 

Public Property Get StyleQ As Long 

'Syntax: Debug. Print X.Style 

Style = mvarStyle 
End Property 



Public Property Let State(ByVal vData As Long) 

'Syntax: X.State = 5 
mvarState = vData 



End Property 
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Public Property Get StateQ As Long 

'Syntax: Debug. Print X.State 

State = mvarState 
End Property 



Public Property Let ShortcutText(ByVal vData As String) 

'Syntax: X.ShortcutText = 5 

mvarShortcutText = vData 
End Property 

Public Property Get ShortcutText() As String 

'Syntax: Debug. Print X.ShortcutText 
ShortcutText = mvarShortcutText 
End Property 



Public Property Let HyperlinkType(ByVal vData As Long) 

'Syntax: X.HyperlinkType = 5 

mvarHyperlinkType = vData 
End Property 
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Public Property Get HyperlinkTypeQ As Long 



'Syntax: Debug. Print X.HyperlinkType 

HyperlinkType - mvarHyperlinkType 
End Property 



Public Property Let Faceld(ByVal vData As Long) 

'Syntax: X.Faceld = 5 

mvarFaceld = vData 
End Property 

Public Property Get FaceldQ As Long 

'Syntax: Debug.Print X.Faceld 

Faceld = mvarFaceld 
End Property 



Public Property Let BuiltlnFace(ByVal vData As Boolean) 

'Syntax: X.ButltlnFace = 5 

mvarBuiltlnFace = vData 
End Property 

Public Property Get BuiltlnFace() As Boolean 
'Syntax: Debug.Print X.BuiltlnFace 
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BuiltlnFace = mvarBuiltlnFace 
End Property 

Public Property Let TooltipText(ByVal vData As String) 

'Syntax: XTooltipText = 5 

mvarTooltipText = vData 
End Property 

Public Property Get TooltipText() As String 

'Syntax: Debug.Print XTooltipText 

TooItipText = mvarTooltipText 
End Property 



Public Property Let Tag(ByVal vData As String) 

'Syntax: X.Tag = 5 

mvarTag = vData 
End Property 

Public Property Get Tag() As String 

'Syntax: Debug. Print X.Tag 

Tag = mvarTag 
End Property 
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Public Property Let Priority(ByVal vData As Long) 

'Syntax: X. Priority = 5 

mvarPriority = vData 
End Property 

Public Property Get Priority() As Long 

'Syntax: Debug. Print X. Priority 

Priority = mvarPriority 
End Property 



Public Property Let Parameter(ByVal vData As String) 

'Syntax: X. Parameter = 5 

mvarParameter = vData 
End Property 

Public Property Get Parameter() As String 

'Syntax: Debug. Print X. Parameter 

Parameter = mvarParameter 
End Property 



Public Property Let OnAction(ByVal vData As String) 



i 
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'Syntax: X.OnAction = 5 

m varO n Act i o n = vD at a 
End Property 

Public Property Get OnAction() As String 

'Syntax: Debug. Print X.OnAction 

On Action = mvarOn Action 
End Property 



Public Property Let lndex(ByVal vData As Long) 

'Syntax: X. Index = 5 

mvarlndex = vData 
End Property 

Public Property Get lndex() As Long 

'Syntax: Debug. Print X.lndex 

Index = mvarlndex 
End Property 



Public Property Let HelpContextld(ByVal vData As Long) 

'Syntax: X.HelpContextld = 5 
mvarHelpContextld = vData 
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End Property 

Public Property Get HeipContextld() As Long 

'Syntax: Debug. Print X.HelpContextld 

HelpContextld = mvarHelpContextld 
End Property 



Public Property Let DescriptionText(ByVal vData As String) 

•Syntax: X.DescriptionText = 5 

mvarDescriptionText = vData 
End Property 

Public Property Get DescriptionTextQ As String 

'Syntax: Debug.Print X.DescriptionText 

DescriptionText = mvarDescriptionText 
End Property 



Public Property Let Caption(ByVaI vData As String) 

'Syntax: X.Caption = 5 

mvarCaption = vData 
End Property 
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Public Property Get Caption() As String 

'Syntax: Debug. PVint X.Caption 

Caption = mvarCaption 
End Property 



Public Property Let BeginGroup(ByVal vData As Boolean) 

'Syntax: X.BeginGroup = 5 

mvarBeginGroup = vData 
End Property 

Public Property Get BeginGroupO As Boolean 

'Syntax: Debug. Print X.BeginGroup 
BeginGroup = mvarBeginGroup 
End Property 



Public Property Let Widthx(ByVal vData As Long) 

•Syntax: X.Widthx = 5 

mvarWidthx = vData 
End Property 

Public Property Get WidthxQ As Long 
'Syntax: Debug. Print X.Widthx 



Widthx = mvarWidthx 
End Property 
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Public Property Let Visible(ByVal vData As Boolean) 

Syntax: X.Visible = 5 

mvarVisible = vData 
End Property 

Public Property Get Visible() As Boolean 

'Syntax: Debug. Print X.Visible 

Visible = mvarVisible 
End Property 



Public Property Let Typex(ByVal vData As Long) 

'Syntax: X.Typex = 5 

mvarTypex = vData 
End Property 

Public Property Get Typex() As Long 

'Syntax: Debug. Print X.Typex 

Typex = mvarTypex 
End Property 
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Public Property Let Top(ByVal vData As Long) 

'Syntax: X.Top = 5 

mvarTop = vData 
End Property 



Public Property Get Top() As Long 

s 

'Syntax: Debug. Print X.Top 

Top = mvarTop 
End Property 



Public Property Let Protection(ByVal vData As Long) 

'Syntax: X. Protection = 5 

mvarProtection = vData 
End Property 



Public Property Get Protection() As Long 

'Syntax: Debug. Print X. Protection 

Protection = mvarProtection 
End Property 
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Public Property Let Position(ByVal vData As Long) 

■Syntax: X. Position = 5 

mvarPosition = vData 
End Property 

Public Property Get Position() As Long 

'Syntax: Debug.Print X.Position 

Position = mvarPosition 
End Property 



Public Property Let Leftx(ByVal vData As Long) 

'Syntax: X.Leftx = 5 

mvarLeftx = vData 
End Property 

Public Property Get LeftxQ As Long 

'Syntax: Debug.Print X.Leftx 

Leftx = mvarLeftx 
End Property 



Public Property Let Height(ByVal vData As Long) 
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Syntax: X.Height = 5 

mvarHeight = vData 
End Property 

Public Property Get Height() As Long 

'Syntax: Debug.Print X.Height 

Height = mvarHeight 
End Property 



Public Property Let Enabled(ByVal vData As Boolean) 

'Syntax: X. Enabled = 5 

mvarEnabled = vData 
End Property 

Public Property Get EnabledQ As Boolean 

■Syntax: Debug.Print X.Enabled 

Enabled = mvarEnabled 
End Property 



Public Property Let Builtln(ByVal vData As Boolean) 

'Syntax: X.Builtln = 5 
mvarBuiltln = vData 
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End Property 

Public Property Get BuiltlnQ As Boolean 

'Syntax: Debug. Print X.Builtln 

Builtln = mvarBuiltln 
End Property 



Public Property Let AdaptiveMenu(ByVal vData As Boolean) 

'Syntax: X.AdaptiveMenu = 5 

mvarAdaptiveMenu = vData 
End Property 

Public Property Get AdaptiveMenu() As Boolean 

AdaptiveMenu = mvarAdaptiveMenu 
End Property 



Public Property Let ID(ByVal vData As Long) 

'Syntax: X.ID = 5 

mvarlD = vData 
End Property 
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Public Property Get ID() As Long 

'Syntax: Debug.Print X.ID 

ID = mvarlD 
End Property 



Private Sub Class_lnitialize() 

Set mvarList = New Collection 
End Sub 



! 
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APPENDIX 2 

VERSION 1 .0 CLASS 
BEGIN 

MultiUse = -1 True 

Persistable = 0 'NotPersistable 

DataBindingBehavior = 0 VbNone 

DataSourceBehavior =0 VbNone 

MTSTransactionMode =0 'NotAnMTSObject 
END 

Attribute VB_Name = "ClassCmdBar" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_CreatabIe = True 
Attribute VB_Predeclaredld = False 
Attribute VB_Exposed = False 

Attribute VB_Ext_KEY = "SavedWithClassBuilderG" ,"Yes" 
Attribute VB_Ext_KEY = 'Top^Level 1 ' ,"Yes" 

■ 

Private mvarWidthx As Long 

Private mvarBuiltln As Boolean 

Private mvarContext As String 

Private mvarControls As CollCmdBarControls 

Private mvarEnabled As Boolean 

Private mvarHeight As Long 

Private mvarlD As Long 

Private mvarLeftx As Long 

Private mvarNameLocal As String 

Private mvarNamex As String 

Private mvarPosition As Long 

Private mvarProtection As Long 

Private mvarRowlndex As Long 

Private mvarTop As Long 

Private mvarTypex As Long 

Private mvarVisible As Boolean 
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Private mvarAdaptiveMenu As Boolean 

Private mvarUsed As Boolean 

Public Property Let Used(ByVal vData As Boolean) 

mvarUsed = vData 
End Property 

Public Property Get Used() As Boolean 

Used = mvarUsed 
End Property 

Public Property Let AdaptiveMenu(ByVal vData As Boolean) 

mvarAdaptiveMenu - vData 
End Property 

Public Property Get AdaptiveMenu() As Boolean 

AdaptiveMenu = mvarAdaptiveMenu 
End Property 



Public Property Let Visible(ByVal vData As Boolean) 

'Syntax: X.Visible = 5 

mvarVisible = vData 
End Property 



Public Property Get VisibleQ As Boolean 
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'Syntax: Debug. Print X.Visible 

Visible = mvarVisible 
End Property 



Public Property Let Typex(ByVal vData As Long) 

'Syntax: X.Typex = 5 

mvarTypex = vData 
End Property 

Public Property Get Typex() As Long 

'Syntax: Debug.Print X.Typex 

Typex = mvarTypex 
End Property 



Public Property Let Top(ByVaI vData As Long) 

'Syntax: X.Top = 5 

mvarTop = vData 
End Property 

Public Property Get Top() As Long 

'Syntax: Debug.Print X.Top 

Top = mvarTop 
End Property 
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Public Property Let RowIndex(ByVal vData As Long) 

'Syntax: X.Rowlndex = 5 

mvarRowlndex = vData 
End Property 

Public Property Get RowlndexQ As Long 

'Syntax: Debug. Print X.Rowlndex 

Rowlndex = mvarRowlndex 
End Property 



Public Property Let Protection (By Val vData As Long) 

'Syntax: X. Protection = 5 

mvarProtection = vData 
End Property 

Public Property Get Protection () As Long 

'Syntax: Debug. Print X. Protection 

Protection = mvarProtection 
End Property 
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Public Property Let Position(ByVal vData As Long) 

'Syntax: X.Position = 5 

mvarPosition = vData 
End Property 

Public Property Get Position() As Long 

'Syntax: Debug.Print X.Position 

Position = mvarPosition 
End Property 



■ 

Public Property Let Namex(ByVal vData As String) 

'Syntax: X.Namex = 5 

mvarNamex = vData 
End Property 

Public Property Get Namex() As String 

'Syntax: Debug.Print X.Namex 

Namex = mvarNamex 
End Property 



Public Property Let NameLocal(ByVal vData As String) 



'Syntax: X.NameLocal = 5 
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mvarNameLocal = vData 
End Property 

Public Property Get NameLocalQ As String 

'Syntax: Debug.Print X.NameLocal 

NameLocal = mvarNameLocal 
End Property 



Public Property Let Leftx(ByVa! vData As Long) 

"Syntax: X.Leftx = 5 

mvarLeftx = vData 
End Property* 

Public Property Get LeftxQ As Long 

'Syntax: Debug.Print X.Leftx 

Leftx = mvarLeftx 
End Property 



Public Property Let ID(ByVal vData As Long) 



'Syntax: X.ID = 5 

mvarlD = vData 
End Property 
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Public Property Get 1D() As Long 

'Syntax: Debug.Print X.ID 

ID = mvarlD 
End Property 



Public Property Let Height(ByVal vData As Long) 

'Syntax: X.Height = 5 

mvarHeight = vData 
End Property 

Public Property Get HeightQ As Long 

'Syntax: Debug.Print X.Height 

Height = mvarHeight 
End Property 



Public Property Let Enabled(ByVal vData As Boolean) 

'Syntax: X. Enabled = 5 

mvarEnabled = vData 
End Property 



Public Property Get EnabledQ As Boolean 
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'Syntax: Debug.Print X.Enabled 

Enabled = mvarEnabled 
End Property 



Public Property Set Controls(ByVal vData As CollCmdBarControls) 

'Syntax: Set x.Controls = Forml 

Set mvarControls = vData 
End Property 

Public Property Get ControlsQ As CollCmdBarControls 

'Syntax: Debug.Print X.Controls 
Set Controls = mvarControls 
End Property 



Public Property Let Context(ByVal vData As String) 

'Syntax: X.Context = 5 

mvarContext = vData 
End Property 

Public Property Get Context() As String 

'Syntax: Debug.Print X.Context 

Context = mvarContext 
End Property 
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Public Property Let Builtln(ByVal vData As Boolean) 

'Syntax: X.Builtln = 5 

mvarBuiltln = vData 
End Property 

Public Property Get BuiltlnQ As Boolean 

Syntax: Debug.Print X.Builtln 

Builtln = mvarBuiltln 
End Property 



Public Property Let Widthx(ByVal vData As Long) 

'Syntax: X.Widthx = 5 

mvarWidthx = vData 
End Property 

Public Property Get Widthx() As Long 

'Syntax: Debug.Print X.Widthx 

Widthx = mvarWidthx 
End Property 



37 



Private Sub Class_lnitialize() 

Set mvarControls = New ColICmdBarControls 
End Sub 
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APPENDIX 3 

VERSION 1 .0 CLASS 
BEGIN 

MultiUse = -1 True 

Persistable = 0 'NotPersistable 

DataBindingBehavior = 0 VbNone 

DataSourceBehavior =0 VbNone 

MTSTransactionMode =0 "NotAnMTSObject 

END 

Attribute VB_Name = "CollCmdBarControls" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_Predeclaredld = False 
Attribute VB_Exposed = False 

Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes" 
Attribute VB_Ext_KEY = "Collection" ,"ClassCommamdCountrol" 
Attribute VB_Ext_KEY = "MemberO" /'ClassCommamdCountrol" 
Attribute VB_Ext_KEY = "Top_Level" ,"Yes" 

Private mCol As Collection 

Public Function FindControl(ID As Long) As ClassCmdControl 
End Function 

Public Function Add(Optional sKey As String) As ClassCmdControl 

Dim objNewMember As ClassCmdControl 
Set objNewMember = New ClassCmdControl 

If Len(sKey) = 0 Then 

mCol.Add objNewMember 

Else 

mCol.Add objNewMember, sKey 
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End If 

Set Add = objNewMember 
Set objNewMember = Nothing 

End Function 

Public Function AddNew(ID As Long, AdaptiveMenu As Boolean, Builtln 
As Boolean, Enabled As Boolean, Height As Long, Leftx As Long, Position As 
Long, Protection As Long, Top As Long, Typex As Long, Visible As Boolean, 
Widthx As Long, BeginGroup As Boolean, Caption As String, DescriptionText As 
String, HelpContextld As Long, Index As Long, OnAction As String, Parameter As 
String, Priority As Long, Tag As String, TooltipText As String, Optional sKey As 
String) As ClassCmdControl 

Dim objNewMember As ClassCmdControl 
Set objNewMember = New ClassCmdControl 

objNewMember. ID = ID 

objNewMember.AdaptiveMenu = AdaptiveMenu 
objNewMember.Builtln = Builtln 
objNewMember. Enabled = Enabled 
objNewMember.Height = Height 
objNewMember. Leftx = Leftx 
objNewMember.Position = Position 
objNewMember. Protection = Protection 
objNewMember.Top = Top 
objNewMember.Typex = Typex 
objNewMember.Visible = Visible 
objNewMember.Widthx = Widthx 
objNewMember.BeginGroup = BeginGroup 
objNewMember.Caption = Caption 
objNewMember.DescriptionText = DescriptionText 
objNewMember.HelpContextld = HelpContextld 
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objNewMember. Index = Index 
objNewMember.OnAction = OnAction 
objNewMember.Parameter = Parameter 
objNewMember.Priority = Priority 
objNewMember.Tag = Tag 
objNewMember.TooltipText = TooltipText 

If Len(sKey) = 0 Then 

mCol.Add objNewMember 

Else 

mCol.Add objNewMember, sKey 
End If 

Set AddNew = objNewMember 
Set objNewMember = Nothing 
End Function 

Public Property Get ltem(vntlndexKey As Variant) As ClassCmdControl 
Attribute ltem.VB_UserMemld = 0 
Set Item = mCol(vntlndexKey) 
End Property 

Public Property Get CountQ As Long 

Count = mCol.Count 
End Property 

Public Sub Remove(vntlndexKey As Variant) 

mCol. Remove vntlndexKey 
End Sub 

Public Property Get NewEnum() As I Unknown 
Attribute NewEnum.VBjJserMemld = -4 
Attribute NewEnum.VBJVIemberFlags = "40" 
Set NewEnum = mCol.LNewEnum] 



End Property 



Private Sub Classjnitialize() 
Set mCol = New Collection 
End Sub 

Private Sub Class__Terminate() 

Set mCol = Nothing 
End Sub 
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APPENDIX 4 

VERSION 1 .0 CLASS 
BEGIN 

MultiUse = -1 'True 

Persistable = 0 'NotPersistable 

DataBindingBehavior = 0 VbNone 

DataSourceBehavior = 0 VbNone 

MTSTransactionMode =0 'NotAnMTSObject 

END 

Attribute VB_Name = "CollectionCmdBars" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_Predeclaredld = False 
Attribute VB_Exposed = False 

Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes" 
Attribute VB_Ext_KEY = "Collection" ."ClassCommandBar" 
Attribute VB_Ext_KEY = "MemberO" ."ClassCommandBar" 
Attribute VB_Ext_KEY = "Top_Level" ,"Yes" 

Private mCol As Collection 

Public Function FindBar(BarName As String) As ClassCmdBar 
For i = 1 To mCol.Count 

If mCol(i).Namex = BarName Then 
Set FindBar = mCol(i) 
Exit Function 
End If 
Next 
End Function 

Public Function Add(Optional sKey As String) As ClassCmdBar 

K 

Dim objNewMember As ClassCmdBar 
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Set objNewMember = New ClassCmdBar 

If Len(sKey) = 0 Then 

mCol.Add objNewMember 

Else 

mCol.Add objNewMember, sKey 
End If 

Set Add = objNewMember 
Set objNewMember = Nothing 

End Function 

Public Function AddNew(Widthx As Long, Builtln As Boolean, Context As 
String, Controls As CollCmdBarControls, Enabled As Boolean, Height As Long, 
ID As Long, Leftx As Long, NameLocal As String, Namex As String, Position As 
Long, Protection As Long, Rowlndex As Long, Top As Long, Typex As Long, 
Visible As Boolean, AdaptiveMenu As Boolean, Optional sKey As String) As 
ClassCmdBar 

Dim objNewMember As ClassCmdBar 
Set objNewMember = New ClassCmdBar 
objNewMember.Widthx = Widthx 
objNewMember.Builtln = Builtln 
objNewMember.Context = Context 
If IsObject(Controls) Then 

Set objNewMember.Controls = Controls 

Else 

Set objNewMember.Controls = Controls 
End If 

objNewMember. Enabled = Enabled 
objNewMember.Height = Height 
objNewMember. ID = ID 
objNewMember.Leftx = Leftx 
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objNewMember.NameLocal = NameLocal 
objNewMember.Namex = Namex 
objNewMember. Position = Position 
objNewMember.Protection = Protection 
objNewMember, Rowlndex = Rowlndex 
objNewMember.Top = Top 
objNewMember.Typex = Typex 
objNewMember.Visible = Visible 
objNewMember.AdaptiveMenu = AdaptiveMenu 

If Len(sKey) = 0 Then 

mCol.Add objNewMember 

Else 

mCol.Add objNewMember, sKey 
End If 

Set AddNew = objNewMember 
Set objNewMember = Nothing 
End Function 

Public Property Get ltem(vntlndexKey As Variant) As ClassCmdBar 
Attribute Item.VBJJserMemld = 0 

Set Item = mCoI(vntlndexKey) 
End Property 



Public Property Get Count() As Long 

Count = mCol.Count 
End Property 

Public Sub Remove(vntlndexKey As Variant) 
mCol. Remove vntlndexKey 
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End Sub 

Public Property Get NewEnum() As lUnknown 
Attribute NewEnum.VB_UserMemld = -4 
Attribute NewEnum.VB_MemberFlags = "40" 

Set NewEnum = mCol.[_NewEnum] 
End Property 

Private Sub Class_lnitialize() 
Set mCol = New Collection 
End Sub 

Private Sub Class_Terminate() 

Set mCol = Nothing 
End Sub 



I 

! 
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APPENDIX 5 

VERSION 5.00 

Begin VB.Form FormLicenseAgreement 
BackColor = &H00800000& 

Caption = "Work From An EMPTY INBOX! Set-Up" 

ClientHeight = 5220 

ClientLeft = 2025 

ClientTop = 1695 

ClientWidth = 8595 

LinkTopic = "Forml" 

ScaleHeight = 5220 

ScaleWidth = 8595 

Begin VB.TextBox Textl 

BackColor = &H00FFFFFF& 

BeginProperty Font 



Name 


= "Verdana" 


Size 


= 8.25 


Charset 


= 0 


Weight 


= 400 


Underline 


= 0 'False 


Italic 


= 0 'False 


Strikethrough = 0 'False 


EndProperty 




Height 


= 2775 


Left 


360 


Locked 


= -1 'True 


MultiLine 


= -1 'True 


ScrollBars 


= 2 'Vertical 


Tablndex 


= 2 


TabStop 


= 0 'False 


Text 


= "FormLicense 


Top 


= 1605 


Width 


= 7815 



47 

End 

Begin VB.CommandButton Command2 
Caption = : "I Don't Agree" 
BeginProperty Font 

Name = "Verdana" 

Size = 9 

Charset =0 

Weight = 400 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
Height = 375 
Left = 4680 

MaskCoIor = &H8000000F& 
Tablndex = 1 
Top = 4680 

Width = 2055 
End 

Begin VB.CommandButton Command 1 
Caption = "I Agree" 
BeginProperty Font 

Name - "Verdana" 

Size = 9 

Charset = 0 

Weight = 400 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
Height = 375 
Left = 1920 

Tablndex = 0 



i 
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Top = 4680 

Width = 2055 
End 

Begin VB.Line Linel 
BorderColor = &H00400000& 
BorderWidth = 2 



Index 


= 0 


X1 


= 240 


X2 


= 8280 


Y1 

* 


= 1200 


Y2 


= 1200 


End 





Begin VB. Label Label2 
BackColor = &H00800000& 

Caption = "Work From An EMPTY INBOX! License Agreement" 
BeginProperty Font 

Name = "Verdana" 

Size = 6.75 

Charset = 0 

Weight = 700 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 

ForeColor = &H00FFFFFF& 
Height = 495 
Left = 360 

Tablndex = 4 
Top =1320 
Width = 4935 
End 

Begin VB.Line Linel 
BorderColor = &H00400000& 
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BorderWidth = 2 
Index = 1 
X1 =240 
X2 = 8280 

Y1 = 4560 

Y2 = 4560 

End 

Begin VB.Label Labell 
Alignment = 2 'Center 
BackColor = &H00800000& 

Caption = "A proven working system for all users of Microsoft 

OUTLOOK (R)" 

BeginProperty Font 
Name = "Verdana" 

Size = 6.75 

Charset - 0 
Weight = 700 
Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 
EndProperty 

ForeColor = &H00FFFFFF& 
Height = 495 
Left = 5640 

Tablndex = 3 
Top = 585 

Width = 2655 
End 

Begin VB.Image Image2 
Height = 900 
Left = 320 

Picture = "FormLicense.frx":002E 
• Top = 120 
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Width = 1845 

End 
End 

Attribute VB_Name = "FormLicenseAgreemenr 
. Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB__Predeclaredld = True 
Attribute VB_Exposed = False 
Public isYes As Boolean 

Private Sub Command 1_Click() 

isYes = True 

Unload Me 
End Sub 

Private Sub Command2_Click() 

isYes = False 

Unload Me 
End Sub 
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APPENDIX 6 

VERSION 5.00 
Begin VB.Form FormSerial 
BackColor = &H00800000& 

Caption = "Work From An EMPTY INBOX! Set-Up 

ClientHeight = 2670 

ClientLeft = 2970 

ClientTop = 3045 

ClientWidth = 6975 

LinkTopic = "Fo'rml" 

ScaleHeight = 2670 

ScaleWidth = 6975 

Begin VB.TextBox Textl 

Height = 285 

Left = 960 

Tab Index = 0 

Top =1470 

Width = 5760 

End 

Begin VB.CommandButton Command4 
Caption = "Cancel" 
BeginProperty Font 

Name = "Verdana" 

Size = 9 

Charset = 0 

Weight = 400 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
Height = 375 
Left = 3840 

MaskColor = &H8000000F& 
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Tablndex = 2 
Top = 2160 

Width = 2055 
End 

Begin VB.CommandButton Command3 
Caption = "OK" 
BeginProperty Font 

Name = "Verdana" 

Size = 9 

Charset = 0 

Weight = 400 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
Height = 375 
Left =1080 
Tablndex = 1 
Top = 2160 

Width = 2055 
End 

Begin VB.Line Linel 

BorderColor = &H00400000& 

BorderWidth = 2 

Index = 0 

X1 = 240 

X2 = 6700 

Y1 = 1200 

Y2 = 1200 

End 

Begin VB.Line Linel 
BorderColor = &H00400000& 
BorderWidth = 2 
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* 

Index = 1 
X1 = 240 

X2 = 6700 

Y1 = 2040 

Y2 = 2040 

End 

Begin VB. Label Labe2 
Alignment = 2 'Center 
BackColor = &H00800000& 
Caption = "Serial*" 
BeginProperty Font 

Name = "Verdana" 

Size = 6.75 

Charset = 0 

Weight = 700 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 

g 

ForeColor = &H00FFFFFF& 
Height = 195 
Index = 1 
Left = 240 

Tablndex = 4 
Top =1530 
Width = 735 
End 

Begin VB.Image Image2 
Height = 900 
Left = 360 

Picture = "FormSerial.frx":0000 
Top =120 
Width =1845 
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End 

Begin VB. Label Label 1 
Alignment = 2 'Center 
BackColor = &H00800000& 

Caption = "A proven working system for all users of Microsoft 

a 

OUTLOOK (R)" 

BeginProperty Font 
Name = "Verdana" 
Size = 6.75 

Charset = 0 
Weight = 700 
Underline = 0 "False 
Italic = 0 'False 
Striketh rough = 0 'False 
End Property 

ForeColor = &H00FFFFFF& 
Height = 495 
Index =0 
Left = 4100 

Tablndex = 3 
Top = 580 

Width = 2655 
End 
End 

Attribute VBJMame = "FormSerial" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB^Predeclaredld = True 
Attribute VB_Exposed = False 
Public isYes As Boolean 
Private Sub Command3_Click() 

isYes = True 

Unload Me 



End Sub 

Private Sub Command4_Click() 

isYes = False 

Unload Me 
End Sub 
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APPENDIX 7 

VERSION 5.00 

Begin VB.Form FormSetCoolbar 
BackColor = &H00800000& 
BorderStyle = 1 'Fixed Single 

Caption = "Work From An EMPTY INBOX! Set-Up" 
ClientHeight = 2595 
ClientLeft =1935 
ClientTop = 1680 
ClientWidth = 5460 
Icon = "FormSetCoolbar.frx":0000 

LinkTopic = "Form2" 
MaxButton = 0 'False 
MinButton = 0 'False 
ScaleHeight = 2595 
ScaleWidth = 5460 
Begin VB.CommandButton Command2 
Caption = "Work From An EMPTY INBOX! OFF" 
BeginProperty Font 
Name = "Verdana" 

Size = 9 

Charset = 0 
Weight = 400 
Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 
EndProperty 
Height = 525 
Left = 360 

Tablndex = 1 
Top = 1800 

Width = 3255 

End 
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Begin VB.CommandButton Commandl 
Caption ' = " Work From An EMPTY INBOX! ON" 
BeginProperty Font 

Name = "Verdana" 

Size =9 

Charset = 0 

Weight = 400 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
Height = 525 
Left = 360 

Tablndex = 0 
Top = 1170 

Width = 3255 
End 

Begin VB.Image Image2 
Height - 900 
Left = 360 

Picture = "FormSetCoolbar.frx":498A 
Top = 120 

Width =1845 
End 

Begin VB.Line Linel 
BorderColor = &H00400000& 
BorderWidth = 2 



Index 


= 1 


X1 


= 120 


X2 


= 5300 


Y1 


= 2400 


Y2 


= 2400 


End 
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Begin VB.Line Linel 

BorderColor = &H00400000& 

BorderWidth = 2 

Index = 0 

X1 = 120 

X2 = 5300 

Y1 = 1 080 

Y2 = 1080 

End 

Begin VB.Image Imagel 
Height =1140 
Left = 3960 

Picture = "FormSetCoolbar.frx":5C5C 
Top = 1170 

Width = 1155 

End 

Begin VB.Label LabeM 
Alignment = 2 'Center 
BackColor = &H00800000& 

Caption = "A proven working system for all users of Microsoft 

OUTLOOK (R)" 

r 

BeginProperty Font 

Name = "Verdana" 

Size = 6.75 

Charset = 0 

Weight =700 

Underline = 0 'False 

Italic = 0 "False 

Strikethrough = 0 'False 
EndProperty 

ForeColor = &H00FFFFFF& 
Height = 495 
Left = 2520 
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Tab Index = 2 
Top = 550 

Width = 2655 

End 
End 

Attribute VB_Name = "FormSetCoolbar" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_Predeclaredld = True 
Attribute VB_Exposed = False 
Option Explicit 

Private CurrOfficeVer As Integer 
Private Application As Object 
Private myNameSpace As Object 

Private myTasksFolder As Object 
Private myContactsFolder As Object 
Private myCalendarFolder As Object 
Private mylnboxFolder As Object 
Private myJournalFolder As Object 
Private myNotesFolder As Object 

Private my ReadMai litem As Object 
Private myTaskltem As Object 
Private myContactltem As Object 
Private myAppointmentltem As Object 

Private IDArray(29, 2) As String 
Private Barlnfo(30, 5) As String 

'Private myCommandBars As New CollectionCmdBars 
Private myFile As Object 
Private fso As Object 



I 
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Sub SetFoIderslnfo(currExplorer As Object) 

Dim myProjectsFolder As Object 
On Error Resume Next 

Set myProjectsFolder = myTasksFolder.Parent.Folders( u Projects") 
If TypeName(myProjectsFolder) = "Nothing" Then 

Set myProjectsFolder = myTasksFolderParent.Folders.Add("Projects", 

olFolderContacts) 
End If 

Dim myOIBar As Object 
Dim i As Integer 

Set myOIBar = currExplorer.Panes.ltemfOutlookBar") 
For i = 1 To myOIBar.Contents.Groups.Count 

If myOIBar.Contents.Groups.ltem(i).Name = "Work From An EMPTY 

INBOX!" Then 

myOIBar.Contents.Groups. Remove i 

End If 
Next 

Dim myGroup As Object 

Set myGroup = myOIBar.Contents.Groups.Add("Work From An EMPTY 
INBOX!", 1) 

myGroup. Shortcuts.Add mylnboxFolder, "Inbox" 
myGroup.Shortcuts.Add myCalendarFolder, "My Diary" 
myGroup.Shortcuts.Add myContactsFolder, "Contacts" 
myGroup.Shortcuts.Add myTasksFolder, "Tasks" 
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myGroup.Shortcuts.Add myProjectsFolder, "Projects" 

myGroup.Shortcuts.Add myNotesFoIder, "Ideas" 

Dim mySendltemFoIder As Object 
Set mySendltemFoIder 
myNameSpace.GetDefaultFolder(olFolderSentMail) 

myGroup.Shortcuts.Add mySendltemFoIder, "Send Items" 



End Sub 

Sub BeginSettingQ 
Dim i As Integer 

Set myTasksFolder = myNameSpace.GetDefauItFolder(olFolderTasks) 

Set myContactsFolder 
myNameSpace.GetDefaultFoIder(oIFolderContacts) 

Set myCalendarFolder 
myNameSpace.GetDefaultFolder(olFolderCalendar) 

Set mylnboxFolder = myNameSpace.GetDefaultFolder(olFoIderlnbox) 

Set myJournalFolder 
myNameSpace.GetDefaultFolder(olFolderJournal) 

Set myNotesFoIder = myNameSpace.GetDefauItFolder(oIFoiderNotes) 

Dim currExplorer As Object 

Set currExplorer = mylnboxFolder.GetExplorer 

currExplorer.display 

SetFolderslnfo currExplorer 

Dim CurrBar As Object 
Dim aa As Object 
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Set CurrBar = Application.ActiveExplorer.CommandBars.ltem("Menu 

Bar") 

CurrBar. Reset 

Set Application.ActiveExplorer.CurrentFolder = myTasksFolder 
getCMBControl 

Set Application.ActiveExplorer.CurrentFolder = rriyContacts Folder 
getCMBControl 

Set Application.ActiveExplorer.CurrentFolder = myCalendarFolder 
getCMBControl 

Set Application.ActiveExplorer.CurrentFolder = myJournal Folder 
getCMBControl 

Set Application. ActiveExplorer.CurrentFolder = myNotesFolder 
getCMBControl 

Set Application.ActiveExplorer.CurrentFolder = mylnboxFolder 
getCMBControl 

'Set Application.ActiveExplorer.CurrentFolder = mylnboxFolder 

Dim MainMenuBar As ClassCmdBar 

Set MainMenuBar = MainBars.FindBar( H Menu Bar") 

Dim a As Object 

Dim haveCtl As Boolean 

On Error Resume Next 

For i = 1 To MainMenuBar.Controls.Count 
haveCtl = True 

Do While haveCtl 

Set a = CurrBar. FindControl(ID:=MainMenuBar.Controls(i).ID, 

Tag:="0") 

If TypeName(a) = "Nothing" Then 

haveCtl = False 
Else 
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Bar") 



Bar") 



Bar") 



' a.Tag = "1" 
a.Visible = True 
a.Move CurrBar 
End If 
Loop 
Next 



'delete no ues button 

If CurrOfficeVer = 10 Then 

Set Application.ActiveExplorer.CurrentFolder = myCalendarFolder 
Set CurrBar = Application.ActiveExplorer.CommandBars.ltem("Menu 



Set a = CurrBar.FindControl(ID:=1099, Tag:="1", Visible:=True) 
a.Visible = False 

Set a = CurrBar.FindControl(ID:=356, Tag:='T\ Visible:=True) 
a.Visible = False 

Set Application.ActiveExplorer.CurrentFolder = myNotesFolder 

Set CurrBar = Application.ActiveExplorer.CommandBars.ltem("Menu 



Set a = CurrBar.FindControl(ID:=356, Tag:="1", Visible:=True) 
a.Visible = False 

Set Application.ActiveExplorer.CurrentFolder = myContactsFolder 
Set CurrBar = App|ication.ActiveExplorer.CommandBars.ltem("Menu 



Set a = CurrBar. FindControl(ID:=356, Tag:="1", Visible:=True) 
a.Visible = False 

Set Application.ActiveExplorer.CurrentFolder = myTasksFolder 
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t 

Set CurrBar = Application.ActiveExplorer.CommandBars.ltem("l\/Ienu 

Bar") 

Set a = CurrBar.FindControl(ID:=356, Tag:="1 ", Visible:=True) 

f 

a.Visible = False 
Else 

Set Application.ActiveExplorer.CurrentFolder = mylnboxFolder 

Set CurrBar = Application.ActiveExplorer.CommandBars.ltem("Menu 

» 

Bar") 

'Set a = CurrBar.FindControI(ID:=1099, Tag:="1 ,, J Visible:=True) 
^.Visible = False 

CurrBar.ControIs.Add Type:=1 , ID:=19, before:=28 

End If . 
Err.CIear 

'=================set Inspector =========================== 

Dim Currltem As Object 
Dim mylnspector As Object 
Dim CurrBars As Object 

Set Currltem = Appiication.Createltem(olTaskltem) 
Set mylnspector = Currltem. Getlnspector 
Set CurrBars = mylnspector.CommandBars 
For i = 1 To CurrBars.Count 

CurrBars(i). Reset 
Next 

mylnspector.Close 1 

Set mylnspector = Nothing 

Currltem.Close 1 
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If mylnboxFoIder.ltems.Count = 0 Then 

MsgBox "Sorry! Have not any mial in your Inbox, so can not set the 
config for 'View Mail' window.", vbCritical 
Else 

Set Currltem = mylnboxFolder.ltems(l) 
If Err = 0 Then SetltemCMBControl Currltem, ReadBars 
End If 

Currltem.CIose 1 
Err.Clear 

If myTasksFolder.ltems.Count = 0 Then 

Set Currltem = Application.Createltem(olTaskltem) 

Else 

Set Currltem = myTasksFolder.ltems(1 ) 
End If 

If Err = 0 Then SetltemCMBControl Currltem, TaskBars 

Currltem.CIose 1 

Err.Clear 

If myContactsFolder.ltems.Count = 0 Then 

Set Currltem = Application. Createltem(olContactltem) 

* 

Else 

Set Currltem = myContactsFolder.ltems(l) 
End If 

If Err = 0 Then SetltemCMBControl Currltem, ContactBars 

Currltem.CIose 1 

Err.Clear 

If myCalendarFolder.ltems.Count = 0 Then 

Set Currltem = Application. Createltem(olAppointmentltem) 

Else 

Set Currltem = myCalendarFolder.ltems(l) 
End If 
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If Err = 0 Then SetltemCMBControl Currltem, AppoihtmentBars 

Currltem.Close 1 

Err.Clear 

'set visible 

If mylnboxFolder.ltems.Count > 0 Then 
Set Currltem = mylnboxFotder.ltems(l) 

If Err = 0 Then SetltemCMBControlVisible Currltem, ReadBars 
Currltem.Close 1 
Err.Clear 
End If 

If myTasksFoIder.ltems.Count = 0 Then 

Set Currltem = Application.Createltem(olTaskltem) 

Else 

Set Currltem = myTasksFolder.ltems(l) 
End If 

If Err = 0 Then SetltemCMBControlVisible Currltem, TaskBars 

Currltem.Close 1 

Err.Clear 

If myContacts Folder. Items.Count = 0 Then 

Set Currltem = Application.Createltem(olContactltem) 

Else 

Set Currltem = myContactsFolder.ltems(l) 
End If 

If Err = 0 Then SetltemCMBControlVisible Currltem, ContactBars 

Currltem.Close 1 

Err.Clear 

If myCalendarFolder.ltems.Count = 0 Then 

Set Currltem = Application.Createltem(olAppointmentltem) 

Else 
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Set Currltem = myCalendarFoIder.ltems(l) 
End If 

If Err = 0 Then SetltemCMBControlVisible Currltem, AppointmentBars 

Currltem.Close 1 

Err.Clear 

'set sort 

If myCalendarFolder.ltems.Count = 0 Then 

Set Currltem = Application.Createltem(olAppointmentltem) 

Else 

Set Currltem = myCalendarFolder.ltems(l) 
End If 

If Err = 0 Then SetltemCMBControlSort Currltem, AppointmentBars 

Currltem.Close 1 

Err.Clear 

'delete no ues button 

If CurrOfficeVer = 10 Then 

i 

If myCalendarFolder.ltems.Count = 0 Then 

Set Currltem = Application.Createltem(olAppointmentltem) 

Else 

Set Currltem = myCalendarFolder.ltems(l) 
End If 

If Err = 0 Then 

Set mylnspector = Currltem.Getlnspector 

Set CurrBar = mylnspector.CommandBars.ltem( ,l Menu Bar") 

mylnspector.display 

Set a = CurrBar.FindControl(ID:=356, Tag:="1 u , Visible:=True) 
a.Visible = False 

Set CurrBar = mylnspector.CommandBars.ltem("Standard") 
Set a = CurrBar.FindControl(ID:=19, Tag:^ 1 !", Visible:=True) 
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a.Visible = False 
my I nspector .Close 
End If 

Currltem. Close 1 
Err.Clear 

If myContactsFolder.Items.Count = 0 Then 

Set Currltem = Application.Createltem(olContactltem) 

Else 

Set Currltem = myContactsFoIder.ltems(l) 
End If 

If Err = 0 Then 

Set mylnspector = Currltem.Getlnspector 

Set CurrBar = mylnspector.CommandBars.ltem("Menu Bar") 

mylnspector.display 

Set a = CurrBar.FindControl(lD:=356, Tag:='T l , Visible:=True) 
a.Visible = False 

» 

mylnspector.Close 
End If 

Currltem.CIose 1 
Err.Clear 

If myTasksFolder.ltems.Count = 0 Then 

Set Currltem = Application.Createltem(olTaskltem) 

Else 

Set Currltem = myTasksFolder.ltems(l) 
End If 

If Err = 0 Then 

Set mylnspector = Currltem.Getlnspector 

Set CurrBar = mylnspector.CommandBars.ltem("Menu Bar") 

mylnspector.display 

Set a= CurrBar.FindControl(ID:=354, Tag:^'!", Visible:=True) 
a.Visible = False 
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Set a = CurrBar.FindControI(ID:=356, Tag:="1", Visible:=True) 
a.Visible = False 

Set CurrBar = myinspector.CommandBars.ltem("Standard") 
Set a = CurrBar.FindControl(ID:=19, Tag:="1", Visible:=True) 
a.Visible = False 

Set a = CurrBar.FindControl(ID:=353, Tag:="1", Visible:=True) 
a.Visible = False 

Set a = CurrBar.FindControl(ID:=2617, Tag:="1", Visible:=True) 
a.Visible = False 

mylnspector.Close 
End If 

Currltem.Close 1 
Err.Clear 

* 

If mylnboxFolder.ltems.Count = 0 Then 

MsgBox "Sorry! Have not any mial in your Inbox, so can not set the 
config for 'View Mail 1 window.", vbCritical 

Else 

Set Currltem - mylnboxFolder.ltems(l) 
Set mylnspector = Currltem.Getlnspector 
mylnspector.display 

Set CurrBar = mylnspector.CommandBars.ltem("Standard") 
Set a = CurrBar.FindControl(ID:=353, Tag:= M 1", Visible:=Faise) 
a.Visible = True 

Set a = CurrBar.FindControl(ID:=2617, Tag:="r, Visible:=False) 

a.Visible = True 

mylnspector.Close 

End If 

Currltem.Close 1 
Else 

If myTasksFolder.ltems.Count = 0 Then 
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Set Currltem = Application.Createltem(olTaskltem) 
Else 

Set Currltem = myTasksFolder.ltems(l) 
End If 

If Err = 0 Then 

Set mylnspector = Currltem.Getlnspector 

Set CurrBar = mylnspector.CommandBars.ltem("Menu Bar") 

mylnspector.display 

Set a = CurrBar.FindControl(ID:=354, Tag:="1", Visible:=True) 
a.Visible = False 

Set a = CurrBar.FindControl(ID:=356, Tag:="1", Visible:=True) 
a.Visible = False 

Set CurrBar = mylnspector.CommandBars.ltem("Standard") 
Set a = CurrBar.FindControl(ID:=353, Tag:="1 ", Visible:=True) 
a.Visible = False 

Set a = CurrBar.FindControl(ID:=2617, Tag:="1 ", Visible:=True) 

a.Visible = False 
mylnspector.Close 

End If 

Currltem.Close 1 
Err.Clear 

If mylnboxFolder.ltems.Count = 0 Then 

MsgBox "Sorry! Have not any mial in your Inbox, so can not set the 
config for 'View Mail 1 window.", vbCritical 

Else 

' Set Currltem = mylnboxFolder.ltems(l) 

Set mylnspector = Currltem.Getlnspector 
mylnspector.display 

Set CurrBar - mylnspector.CommandBars.ltem("Standard") 
Set a = CurrBar.FindControl(ID:=353, Tag:="1", Visible:=False) 

i 

a.Visible = True 

Set a = CurrBar.FindControl(ID:=261 7, Tag:=" 1 ", Visible:=False) 
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a. Visible = True 
• mylnspector.Close 

End If 

Currltem.Close 1 

Err.Clear 
End If 

Err.Clear 
End Sub 

Function SetCMBControl(crtlinfo As ClassCmdControl, ByRef CurrBar As 
Object, CurrBars As Object) As Boolean 
Dim Controla As Object 
Dim Controlb As Object 
Dim needNew As Boolean 
Dim needCopy As Boolean 
Dim haveit As Boolean 
Dim contrls As Object 
Dim i As Integer 

On Error Resume Next 

Set Controla = CurrBar.FindControl(Type:=crtllnfo.Typex, ID:=crtllnfo.lD, 

Tag:="0") 

If TypeName(Controla) <> "Nothing" Then 
Controla.Visible = True 
If Controla.Visible Then 
SetCMBControl = True 
Exit Function 
End If 
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End If 

Set Controla = CurrBar.FindControl(Type:=crtllnfo.Typex, ID:=crt!lnfo.lD) 
If TypeName(Controla) <> "Nothing" Then 

Controla.Visible = True 

haveit = True 

If Controla.Visible = True Then 
needNew = False 

Else 

needNew = True 

End If 
Else 

needNew = True 

haveit = False 
End If 

If needNew Then 

Set contrls = CurrBars.FindControls(Type:=crtllnfo.Typex, 

ID:=crtllnfo.lD) 

If TypeName (contrls) <> "Nothing" Then 

haveit = True 

Set Controlb = contrls(1 ) 

For i = 1 To contrls.Count 

If contrls(i).Visible = True Then 
Set Controlb = contrls(i) 
Exit For 
End If 
Next 

If Controlb.Visible = True Then 

'If haveit Then Controla. Delete 

needCopy = True 
Else 
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-a 

needCopy = False 
End If 

If needCopy Then 

Set Controla = Controlb.Copy(CurrBar) 

End If 
Else 

Set Controla = CurrBar.Controls.Add(Type:=crtllnfo.Typex, 

ID:=crtllnfo.lD) 

haveit = True 

End If 
End If 

If haveit Then 

Controla.Caption = crtllnfo.Caption 

Controla. Priority = 1 

ControlaTag = "0" 

If Controla. Caption = "Useful Help" Then 

Controla.HyperlinkType = msoCommandBarButtonHyperlinkOpen 
Controla.TooltipText = "http://www.work-from-an-empty-inbox.com" 

End If 

If crtllnfo.Typex = msoControlButton Then 
Controla.Style = crtllnfo.Style 
If crtllnfo.Faceld = 0 Then 

Controla.BuiltlnFace = True 
Else 

Controla. Faceld = crtllnfo.Faceld 
End If 

Controla. ShortcutText = crtllnfo.ShortcutText 
End If 

If crtllnfo.Typex = msoControlGraphicCombo Or crtllnfo.Typex = 
msoControlGraphicCombo Or (crtllnfo.Typex >= msoControlDropdown And 
crtllnfo.Typex <= msoControlOCXDropdown) Then 
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Controla.Style = crtllnfo.Style 
End If 

End If 
Err.CIear 
On Error GoTo 0 
End Function 

Sub getCMBControiO 
Dim CurrBars As Object 
Dim i As Integer 

Set CurrBars = Application.ActiveExplorer.CommandBars 
On Error Resume Next 
For i = 1 To CurrBars.Count 
CurrBars.ltem(i).Visible = False 

Next 

On Error GoTo 0 

Dim CurrBar As Object 

Set CurrBar = CurrBars. ltem("Menu Bar") 

Dim MenuBar As New ClassCmdBar 

Set MenuBar = MainBars.FindBar("Menu Bar") 

For i = 1 To MenuBar.Controls.Count 

SetCMBControl crtllnfo:=MenuBar.Controls(i), CurrBar:=CurrBar, 

CurrBars:=CurrBars 
Next 
End Sub 

Sub SetltemCMBControl(myltem As Object, currCMBslnfo As 

CoilectionCmdBars) 

Dim Barlnfo As New ClassCmdBar 
Dim CurrBars As Object 
Dim mylnspector As Object 
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Dim cb As Object 
Dim i As Integer 
Dim j As Integer 
Dim k As Integer 
Dim haveCtl As Boolean 

Set mylnspector = myltem.Getlnspector 
Set CurrBars = mylnspector.CornmandBars 
mylnspector.display 
On Error Resume Next 
For i = 1 To CurrBars.Count 

CurrBars. ltem(i) .Visible = False 
Next 

On Error GoTo 0 
Err.Clear 

Dim CurrBar As Object 
For i = 1 To CurrBars.Count 

Set Barlnfo = currCMBslnfo.FindBar(CurrBars.ltem(i).Name) 

If Barlnfo.Visible Then 

Set CurrBar = CurrBars. Item(i) 

CurrBar.Visible = True 

For j = 1 To CurrBar.Controls.Count 

If CurrBar.Controls.ltemG).Tag , <> "0". Then 
CurrBar.Controls.ltemQ).Visible = False 

Next 

For j = 1 To Barlnfo.Controls.Count 

SetCMBControl crtllnfo:=Barlnfo.Controls(j), CurrBar:=CurrBar, 

CurrBars:=CurrBars 

Next 
End If 
Next 

mylnspector.Close 1 
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End Sub 

Sub SetItemCMBControlSort(myltem As Object, currCMBslnfo 
CoIlectionCmdBars) 

Dim Barlnfo As New ClassCmdBar 

Dim CurrBars As Object 

Dim mylnspector As Object 

Dim cb As Object 

Dim i As Integer 

Dim j As Integer 

Dim k As Integer 

Dim haveCtl As Boolean 

Set mylnspector = myltem.Getlnspector 
Set CurrBars = mylnspector. CommandBars 
mylnspector.display 

Dim CurrBar As Object 
For i = 1 To CurrBars.Count 

Set Barlnfo - currCMBslnfo.FindBar(CurrBars.ltem(i).Name) 

If Barlnfo.Visible Then 

Set CurrBar = CurrBars. Item(i) 

On Error Resume Next 
If CurrBars.ltem(i).Name = "Menu Bar" Then 
Forj = 1 To 19 
haveCtl = True 
Do While haveCtl 

Set cb 
CurrBar.FindControl(ID:=ltemMainBarlndexArrayG), Tag:="0") 

If TypeName(cb) = "Nothing" Then 
haveCtl = False 

Else 

cb.Tag = "1" 



cb.Visible = True 
cb.Move CurrBar 
End If 
Loop 
Next 
Else 

For j = 1 To 32 
haveCtl = True 
Do While haveCtl 

Set cb = CurrBar.FindControl(ID:=ltemStdBarlndexArray(j), 

Tag:="0") 

If TypeName(cb) = "Nothing" Then 

haveCtl = False 
Else 

cb.Tag = "1" 
cb.Visible = True 
cb.Move CurrBar 
End If 
Loop 
Next 
End If 
End If 
Next 

mylnspector.Close 1 
End Sub 

Sub SetltemCMBControlVisible(myltem As Object, currCMBslnfo As 
CollectionCmdBars) 

Dim Barlnfo As New ClassCmdBar 
Dim CurrBars As Object 
Dim my Inspector As Object 
Dim cb As Object 
Dim i As Integer 
Dim j As Integer 
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1 

Dim k As Integer 

Set mylnspector = myltem.Getlnspector 
Set CurrBars = mylnspector.CommandBars 
mylnspector.display 
Err. Clear 

Dim CurrBar As Object 
For i = 1 To CurrBars.Count 

Set Barlnfo = currCMBslnfo.FindBar(CurrBars.ltem(i).Name) 

If Barlnfo.Visible Then 

Set CurrBar = CurrBars. Item(i) 
CurrBar. Visible = True 

For j = 1 To CurrBar.Controls.Count 
For k = 1 To Barlnfo.Controls.Count 

If Barlnfo.Controls(k).ID = CurrBar.ControlsO).ID 

CurrBar.ControlsO-Tag = "0" Then 

CurrBar.ControlsQ).Visible = True 

End If 
Next 
Next 
End If 
Next 

mylnspector.Close 1 
End Sub 

Private Sub Command 1_Click() 
FormLicenseAgreement.Show 1 
If FormLicenseAgreement.isYes Then 
FormSerial.Show 1 
If FormSerial.isYes Then 

Screen. MousePointer = vbHourglass 



( 
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. Readlnfo 

Set Application = CreateObject("Outlook.Application") 

CurrOfficeVer = 10 

Dim a As String 

a = Application .version 

a = Left(a, 2) 

If a = "9." Then CurrOfficeVer = 9 
If a = "1Q n Then CurrOfficeVer =10 
If a = "1 1" Then CurrOfficeVer = 1 1 

Set myNameSpace = AppIication.GetNameSpace("MAPI u ) 

BeginSetting 
Application.Quit 
Set Application = Nothing 
Screen.MousePointer = vbDefault 
MsgBox "Update succeed!" 
End 
End If 
End If 
End Sub 

Private Sub Command2__Click() 
Dim currExplorer As Object 
Dim mylnspector As Object 
Dim CurrBar As Object 
Dim Currltem As Object 
Dim i As Integer 

Screen.MousePointer = vbHourglass 

Set Application = CreateObjectfOutlook.Application") 

Set myNameSpace = Application. GetNameSpace("MAPr') 

Set myTasksFolder = myNameSpace.GetDefaultFoIder(olFolderTasks) 

Set currExplorer = myTasksFolder.GetExplorer 
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currExplorer.display 



Dim myOIBar As Object 

Set myOIBar = currExplorer.Panes.Item("OutlookBar") 
For i = 1 To myOIBar.Contents.Groups.Count 

If myOIBar.Contents.GroupsJtem(i).Name = "Work From An EMPTY 

INBOX!" Then 

myOIBar.Contents.Groups. Remove i 
i = i - 1 
End If 
Next 

Set CurrBar = Application.ActiveExplorer.CommandBars.ltem("Menu 

Bar") 

CurrBar. Reset 
currExplorer.CIose 

Set Currltem = Application.Createltem(olTaskltem) 
Set mylnspector = Currltem. Getlnspector 
For i = 1 To mylnspector.CommandBars.Count 
mylnspector.CommandBars.ltem(i). Reset 

Next 

mylnspector.Close 1 
Currltem.Close 1 
Application.Quit 
Set Application = Nothing 
Screen. MousePointer = vbDefault 
MsgBox "Update succeed!" 
End 
End Sub 
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APPENDIX 8 
Attribute VBJMame = "Modulelnfo" 
Option Explicit 

Public ltemMainBarlndexArray(25) As Integer 
Public ltemStdBarlndexArray(33) As Integer 

Public Const msoControlButton = 1 
Public Const msoControlEdit = 2 
Public Const msoControl Dropdown = 3 
Public Const msoControlComboBox = 4 
Public Const msoControlButtonDropdown = 5 
Public Const msoControlSplitDropdown = 6 
Public Const msoControlOCXDropdown = 7 
Public Const msoControlGraphicDropdown = 9 
Public Const msoControlGraphicCombo = 20 

Public Const msoControlPopup = 10 
Public Const msoControlGraphicPopup = 11 
Public Const msoControlButtonPopup =12 
Public Const msoControlSplitButtonPopup = 13 
Public Const msoControlSplitButtonMRUPopup = 1 

Public Const olFolderCalendar = 9 

Public Const olFolderContacts = 10 

Public Const olFolderDeletedltems = 3 

Public Const olFolderDrafts = 16 

Public Const olFolderlnbox = 6 

Public Const olFolderJournal = 11 

Public Const olFolderNotes = 12 

Public Const olFolderOutbox = 4 

Public Const olFolderSentMail = 5 

Public Const olFolderTasks =13 

Public Const olPublicFoldersAIIPublicFolders = 18 
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Public Const msoCommandBarButtonHyperlinkOpen 

Public Const olMaiUtem = 0 
Public Const olAppointrnentltem - 1 
Public Const olContactltem = 2 
Public Const olTaskltem = 3 
Public Const olJournalltem = 4 
Public Const oINoteltem = 5 
Public Const olPostltem = 6 
Public Const olDistributionListltem = 7 

Public MainBars As New CollectionCmdBars 
Public TaskBars As New CollectionCmdBars 
Public ReadBars As New CollectionCmdBars 
Public ContactBars As New CollectionCmdBars 
Public AppointmentBars As New CollectionCmdBars 

Public Sub ReadlnfoQ 

SetAppointmentBarsI nfo 

SetContactBarslnfo 

SetMailBarslnfo 

SetTaskBarslnfo 

SetMainMenuBarlnfo 

SetCtllndexInfo 

End Sub 

Public Sub SetMainMenuBarlnfoQ 
Dim CurrBar As ClassCmdBar 
Dim currCTL As ClassCmdControl 

'—Bar 1 

Set CurrBar = MainBars.Add 

CurrBar.Namex = "Clipboard" 
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CurrBar .Visible = False 

'—Bar 2 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Menu Bar" 

CurrBar. Visible = True 
... 1 — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTLID = 30141 
currCTL. Index = 1 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld - 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

'.„ 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30131 
currCTL. Index = 2 

currCTL.Caption = "Unlocking OUTLOOK 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

«... 3 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
currCTLID = 30142 
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currCTL.Index = 3 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTLDescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30149 

currCTL.Index = 4 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30119 
currCTL.Index = 5 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 



— 6 
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Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 4 
currCTL.ID = 1893 
currCTL. Index = 6 
currCTL.Caption = "Current &View 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL. Style = 0 

1 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1094 
currCTL.Index = 7 
currCTL.Caption = "Today " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1094 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

s 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1095 
currCTL.Index = 8 
currCTL.Caption = "This Week " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1095 
currCTL.ShortcutText = "" 
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■ 

currCTL.Style = 3 

•_„ 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1096 
currCTL. Index = 9 
currCTL.Caption = "This Month " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1096 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

•„. 1 o 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 109 
currCTL.Index = 10 
currCTL.Caption = "Print Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 2144 
currCTL.ShortcutText = "" 
currCTLStyle = 3 

•_„ 1 1 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTLlD = 30002 
currCTL.Index = 11 
currCTL. Caption = "&File" 
currCTL. DescriptionText = "" 



! 



87 

currCTL.BuiltlnFace = False 
currCTLFaceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

■_„12 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30003 
currCTL. Index = 12 
currCTL.Caption = "&Edit" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30004 
currCTL.Index = 13 
currCTL.Caption = "&View" 
currCTL.DescriptionText = "" 

currCTL-BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

«... 14 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30176 
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currCTL. I ndex = 14 
currCTLCaption = "Fav&orites" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

1 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30007 
currCTL. Index =15 
currCTLCaption = "&Tools" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL. Style = 0 

«.„ 1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30010 

currCTL Index = 16 
currCTL.Caption = "Microsoft Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 

currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 



'— 1 7 
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Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 1016 
currCTL. Index = 17 
currCTL.Caption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTLFaceld = 59 
currCTL.ShortcutText = 
currCTL.Style = 3 

l_19 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 1758 
currCTL. Index = 19 
currCTL.Caption = "New Idea " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1758 
currCTL.ShortcutText = "Ctrl+N" 
currCTL.Style = 3 

«... 20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1099 
currCTLIndex = 20 

currCTL.Caption = "New Contact or Project" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1099 
currCTLShortcutText = "Ctrl+N" 
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currCTL. Style = 3 

21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 5592 
currCTL.Index = 21 

currCTL.Caption = " Find An Entry In This Part of OUTLOOK 

currCTL. DescriptionText = "" 

currCTL.BuiltlnFace = False 

currCTL. Face Id = 29 

currCTLShortcutText = "" 

currCTL.Style = 3 

•„. 22 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 354 
currCTL.Index = 22 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace - False 
currCTL.Faceld = 2151 
currCTLShortcutText = "Ctrl+R" 
currCTLStyle = 3 



Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1679 
currCTL.Index = 23 

currCTL.Caption = "Decide What To Do With It" 
currCTL.DescriptionText = "" 
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currCTL.BuiltlnFace = False 
currCTL.Faceld = 49 
currCTL.ShortcutText = "Ctrl+Shift+V" 
currCTL. Style = 3 

... 24 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 356 
currCTL. Index = 24 
currCTL-Caption = "Delegate It" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTLFaceld = 2141 
currCTLShortcutText = "Ctrl+F" 
currCTLStyle = 3 

25 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 478 
currCTL.Index = 25 
currCTLCaption = "Ditch It 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 67 
currCTL.ShortcutText = "Ctrl+D" 
currCTL.Style = 3 

.... 26 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL. ID = 21 
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currCTL.Index = 26 
currCTL.Caption = "Cu&t" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 21 
currCTL.ShortcutText = "Ctrl+X" 
currCTL.Style = 0 

— 27 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 19 
currCTL.Index = 27 
currCTLCaption = "&Copy" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 19 
currCTLShortcutText = "Ctrl+C" 

currCTL.Style = 0 

■„. 28 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 22 
currCTL.Index = 28 
currCTL.Caption = "&Paste 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 22 
currCTL.ShortcutText = "Ctrl+V" 
currCTL.Style = 0 
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Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 128 
currCTL.Index = 29 
currCTL.Caption = " " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 128 
currCTL.ShortcutText = "Ctrl+Z" 

currCTL.Style = 0 

.... 30 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 4 
currCTL.ID = 5454 
currCTL.Index = 30 
currCTL.Caption = "&Find a Contact" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

_ 31 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 522 
currCTL.Index = 31 

currCTL.Caption = "Personalise OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 480 
currCTL.ShortcutText = "" 
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currCTLStyle = 3 

■—Bar 3 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Standard" 
CurrBar. Visible = False 

'--Bar 4 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Web" 
CurrBar. Visible = False 

'—Bar 5 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Advanced" 
CurrBar. Visible = False 

'—Bar 6 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Remote" 
CurrBar. Visible = False 

End Sub 

Public Sub SetAppointmentBarslnfdO 
Dim CurrBar As ClassCmdBar 
Dim currCTL As ClassCmdControl 

'■— Bar 1 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Clipboard" 
CurrBar. Visible = False * 

'—Bar 2 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Menu Bar" 

CurrBar. Visible = True 

1 
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Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30131 
currCTL. Index = 1 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = "" 
currCTL,Built!nFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = ,,H 
currCTL.Style = 0 

2 — 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL.ID = 30122 
currCTL. Index = 2 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

■j 

3 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30130 
currCTL.Index = 3 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
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currCTLStyle = 0 

■„_4 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 10 
currCTLID = 30127 
currCTL. Index = 4 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = n " 

currCTL.Style = 0 

5 

Set currCTL = CurrBar.ControIs.Add 

currCTL.Typex =10 
currCTL.lD = 30002 
currCTL.Index = 5 
currCTL.Caption = "&File" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Face Id = 0 
currCTL.ShortcutText = " 
currCTL.Style = 0 

«_ 6 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex =10 
currCTL. ID = 30003 
currCTL.Index = 6 
currCTL.Caption = ,l &Edit" , 
currCTL. DescriptionText = 



97 

currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30004 
currCTL.Index = 7 
currCTL.Caption = "&View" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTLFaceld = 0 
currCTLShortcutText = "" 
currCTLStyle = 0 

.... 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30005 
currCTL.Index = 8 
currCTL.Caption = "&lnsert" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

...1 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30006 
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currCTL.Index = 9 
currCTL.Caption = "F&ormat" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

1 o 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30007 
currCTL.Index = 10 
currCTL.Caption = "&Tools" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

.... 1 1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30145 
currCTL.Index = 11 
currCTL.Caption = "Fo&rm" 
currCTL.DescriptionText - "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

1 2 
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* 

Set currCTL = CurrBar.Controls.Add 
1 currCTL.Typex = 10 

currCTL.ID = 30146 
1 currCTL. Index = 12 

currCTL.Caption = , *&Layout n 

currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = False 

currCTL. Faceld = 0 

currCTL.ShortcutText = "" 

currCTL.Style = 0 

-i 3 . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30010 
currCTL.lndex = 13 
currCTL.Caption = "Microsoft Help " 
currCTL.DescriptionText = 11 11 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = 
currCTL.Style = 0 

■„ 14 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.lD = 1576 
currCTL.lndex =14 
currCTL.Caption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 

currCTL.Faceld = 59 
currCTLShortcutText = " 



100 

currCTL.Style = 3 

1 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1665 
currCTL. Index = 15 
currCTL. Caption = "Make New Item 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1665 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

'—-16 

Set currCTL = CurrBar.ControIs.Add 

currCTL.Typex = 1 

currCTL.ID = 1758 

currCTL.Index = 16 

currCTL.Caption = "New Idea" 

cu rrCTL. DescriptionText 

currCTL.BuiltlnFace = True 

currCTL. Faceld = 1758 

currCTLShortcutText = "Ctrl+Shift+N" 

currCTL.Style = 3 

17 - 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL. ID = 354 
cu rrCTL. I ndex = 1 7 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = "" 
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currCTL.BuiltlnFace = False 
currCTL.Faceld = 2151 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 

'— 1 8 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 1679 
currCTL.Index =18 

currCTL.Caption = "Decide What To Do With It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 49 
currCTL.ShortcutText = "Ctrl+Shift+V" 

currCTL.Style = 3 

1 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID= 1976 
currCTL.Index =19 
currCTLCaption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 356 
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currCTL.Index = 20 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "Ctrl+F" 
currCTL.Style = 3 

«™ 21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 478 
currCTL. Index = 21 
currCTL.Caption = "Ditch If 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 67 
currCTLShortcutText = "Ctrl+D" 
currCTL.Style = 3 

'—Bar 3 

Set CurrBar = AppointmentBars.Add 

CurrBar.Namex = "Standard" 

CurrBar.Visible = True 
■™ -i . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 2011 
currCTL. Index = 1 
currCTL.Caption = "Close Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2011 
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currCTL.ShortcutText = "AIt+F4" 
currCTL.Style = 2 

2 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 1975 
currCTL. Index = 2 

currCTL.Caption = "Save and Close " 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTL,ShortcutText = ,,H 
currCTL.Style = 3 

3 . . 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL. ID = 30005 
currCTL.Index = 3 
currCTL.Caption = "Get Resources" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

■„- 4 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 109 
currCTL.Index = 4 
currCTLCaption = "Print Now" 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2144 
currCTL.ShortcutText = "" 

currCTL.Style = 3 
... 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 360 
currCTL.Index = 5 
currCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 360 
currCTL.ShortcutText = "Ctrl+>" 
currCTL.Style = 3 

•_„ 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 359 
currCTL.Index = 6 
currCTL. Caption = "Previous Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 359 
currCTL.ShortcutText = "Ctrl+<" 
currCTL.Style = 3 

... 7 

Set currCTL = CurrBar.Controls.Add 



i 

165 

currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL. Index = 7 

currCTL.Caption = "Recurring Event" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1 977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Style = 3 

<„. 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1987 
currCTL. Index = 8 
currCTL.Caption = "Check Diary" 
currCTL.DescriptionText = M " 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1 987 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

g 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1086 
currCTL. Index = 9 

currCTL.Caption = "l&nvite Attendees.. 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1086 
currCTL.ShortcutText = 
currCTL.Style = 3 
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■™ 1 o 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 2 
currCTL.Index = 10 
currCTL.Caption = "Spell Check" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2 
currCTL.ShortcutText = "F7" 
currCTL.Style = 3 

1 — 1 1 — 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =12 
currCTLID = 2611 
currCTL.Index =11 
currCTL.Caption = "&Font Color" 
currCTL.DescriptionText = 11 " 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = 
currCTL.Style = 0 

l_ 1 2 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =1 
currCTL.ID = 19 
currCTL.Index = 12 
currCTL.Caption = "Copy" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
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currCTL.Faceld = 19 
currCTL.ShortcutText = "Ctrl+C" 
currCTL.Style = 0 

1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 22 
currCTL.Index = 13 
currCTL.Caption = "Paste" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 22 
currCTLShortcutText = "Ctrl+V" 
currCTL.Style = 0 

... 1 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID= 128 
currCTL.Index =14 
currCTL.Caption = "&Undo" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 128 
currCTL.ShortcutText = "Ctrl+2" 
currCTL.Style = 0 

'—Bar 4 — 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Form Design" 
CurrBar.Visible = False 
'—Bar 5 



i 
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Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Response" 
CurrBar.Visible = False 

'—Bar 6 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Formatting" 
CurrBar.Visible = False 

End Sub 

Public Sub SetAppoi ntme ntB ars I nf o_o!d () 
Dim CurrBar As ClassCmdBar 
Dim currCTL As ClassCmdControl 

Bar 1 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Clipboard" 
CurrBar.Visible = False 

'—Bar 2 — 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Menu Bar" 

CurrBar.Visible = True 

1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30131 
currCTL. Index = 1 
currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescrlptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = ll " 
currCTL.Style = 0 
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Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID =30122 
currCTL. Index = 2 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlriFace = False 
currCTL. Faceld = 0 
currCTLShortcutText = ,IU 
currCTL.Style = 0 

3 ~ — 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30130 
currCTL. Index = 3 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

■„ 4 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL.ID = 30127 
currCTL. Index = 4 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTLShortcutText = "" 



110 

currCTLStyle = 0 

L_ 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTLID = 30002 
currCTL.Index = 5 
currCTL.Caption = n &FiIe" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Face Id = 0 
currCTLShortcutText = "" 
currCTLStyle = 0 

*™ 6 . — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTLID = 30003 
currCTLIndex = 6 
currCTL.Caption = "SEdit" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = ,ln 
currCTL.Style = 0 

~j 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL. ID = 30004 
currCTL.Index = 7 
currCTL.Caption = "&View" 
currCTL.DescriptionText = "" 
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currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = 
currCTLStyle = 0 

1 — 8 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
currCTL.ID = 30005 
currCTL. Index = 8 
currCTLCaption = "&lnsert n 
currCTL. DescriptionText = ,,,, 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = " 
currCTLStyle = 0 

g 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL.ID = 30006 
currGTL.Index = 9 
currCTLCaption = "F&ormat" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

1 o 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL.ID = 30007 
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i 

i 

currCTL.Index = 10 
currCTL.Caption = "&Tools" 
currCTL.DescriptionText = " K 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

1 ! - - 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30145 
currCTL.Index =11 
currCTL.Caption = "Fo&rm" 
currCTL.DescriptionText = " ,l 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = n " 
currCTL.Style = 0 

12 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30146 
currCTL.Index =12 
currCTL.Caption = "&Layout" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = " 
currCTL.Style = 0 

«.„ 13 
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Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30010 
currCTL. Index =13 
currCTL.Caption = "Microsoft Help " 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
durrCTL.Faceld = 0 
currCTL.ShortcutText = " 
currCTL.Style = 0 

'-- 1 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1576 
currCTL.Index =14 
currCTL.Caption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 59 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

«_ 1 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 1665 
currCTL.Index =15 
currCTL.Caption = "Make New Item 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1665 
currCTL.ShortcutText = 
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currCTL.Style = 3 

'— 1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1758 
currCTL. Index = 16 
currCTL.Caption = "New Idea" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1758 
currCTL.ShortcutText = "Ctrl+Shift+N" 
currCTL.Style = 3 

'...17 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 354 
currCTL. Index =17 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2151 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 

4 

-| 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1679 
currCTL.Index = 18 

currCTL.Caption = "Decide What To Do With It" 
currCTL.DescriptionText = ,,M 
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currCTL.BuiltlnFace = False 
currCTL.Faceld = 49 
currCTL.ShortcutText = "Gtrl+Shift+V" 
currCTL.Style = 3 

'— 1 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1976 
currCTL.Index = 19 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

- 

... 20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 356 
currCTL.Index = 20 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTLShortcutText = "Ctrl+F" 
currCTL.Style = 3 

•_„ 21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 478 
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currCTLIndex = 21 
currCTL.Caption = "Ditch It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 67 
currCTL.ShortcutText = "Ctrl+D" 
currCTL.Style = 3 

'—Bar 3 — — 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Standard" 
CurrBar.Visible = True 
- 1 

Set currCTL = CurrBar.ControIs.Add 

currCTL.Typex = 1 

currCTLID = 2011 

currCTL. Index = 1 

currCTL.Caption = "Close Item" 

currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = True 

currCTL.Faceld = 201 1 

currCTL.ShortcutText = "Alt+F4" 

currCTL.Style = 2 

1 — 2 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL. ID = 1975 
cu rrCTL. Index = 2 
currCTL.Caption = "Save and Close 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
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currCTL.ShortcutText = "" 
currCTL.Style = 3 

... 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1975 
currCTL. Index = 3 

currCTL.Caption = "Save and Close" 
currCTLDescriptionText = , '" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 271 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL. ID = 30005 
currCTL. Index = 4 
currCTL.Caption = "Get Resources" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

'— 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5604 
currCTL. Index = 5 
currCTL.Caption = "Edit this Mail" 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 

currCTL.Faceld = 31 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

... 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 109 
currCTL.Index = 6 
currCTLCaption = "Print Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2144 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 1978 
currCTL.Index = 7 
currCTL.Caption = "Craft eMail" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1978 
currCTLShortcutText = "" 
currCTL.Style = 3 

8 . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
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currCTL.ID = 5681 
cu rrCTL. I ndex = 8 

currCTL.Caption = "Start &NetMeeting" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTL.Faceld = 5681 
currCTL.SbortcutText = "" 
currCTL. Style = 3 

9 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex - 1 
currCTL.ID = 5618 
currCTL.Index = 9 

currCTL.Caption = "Join &NetMeeting" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 561 8 
currCTLShortcutText = "" 
currCTL.Style = 3 

1 o 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5417 
currCTLJndex = 10 
currCTL.Caption = "View &NetShow" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 5417 
currCTLShortcutText = "." 
currCTL.Style = 3 



! 
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■™ -J -| 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5596 
currCTL. Index =11 

currCTL.Caption = "Join &Conference" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 5596 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

■™ -1 2 — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 353 
currCTL. Index =12 
currCTL.Caption = "Include Others...." 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "Ctrl+Shift+B" 
currCTL.Style = 3 

«... 1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2617 
currCTL. Index =13 
currCTL.Caption = "&Send" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2617 
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currCTL.ShortcutText = "Ctrl+Enter" 
currCTL.Style = 3 

14 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 2004 
currCTL Index = 14 
currCTL.Caption = "Cancel Delegation 
currCTL. DescriptionText = " u 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = n " 
currCTL.Style = 3 

-„ 15 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 354 
currCTL.Index = 15 
currCTL.Caption = "Reply" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 354 
currCTL.ShortcutText = "Ctrl+R" 
currCTLStyle = 3 

«... ! 6 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL. ID = 355 
currCTL.Index =16 
currCTL.Caption = "Reply to A&H" 
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currCTLDescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 355 
currCTL.ShortcutText = "Ctrl+Shift+R" 

currCTL.Style = 3 

— 17 

Set currCTL - CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 356 
currCTL.Index= 17 
currCTL.Caption = "Forward" 
currCTLDescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 356 
currCTL.ShortcutText = "Ctrl+F" 
currCTL.Style = 3 

■™ 18 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL. Index =18 
currCTL.Caption = "Recurring Task" 
currCTL. DescriptionText = " 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Style = 3 

1 9 — 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
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currCTL.ID = 2985 
currCTL. Index = 19 

currCTLCaption = "Mark This Task Complete" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2985 
currCTL.ShortcutText = M " 
currCTL.Style = 3 

20 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 1760 
currCTL.Index = 20 

currCTL.Caption = "Send Task Status Update" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1760 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

21 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL. ID = 5433 
currCTL.Index = 21 

currCTL.Caption = "New Appointment" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2148 
currCTL.ShortcutText = "" 
currCTL.Style = 3 



1 

22 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTLID = 1979 
currCTL. Index = 22 
currCTL.Caption = "New Task" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL Faceld = 1979 
currCTL.ShorlcutText = "" 
currCTL.Style = 3 

... 23 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 360 
currCTL.Index = 23 
currCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 360 
currCTLShortcutText = u Ctrl+>" 
currCTL.Style = 3 

... 24 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 359 
currCTL.Index = 24 
currCTL.Caption = "Previous Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 359 



i 
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currCTL.ShortcutText = "Ctrl+< u 
currCTLStyle = 3 

, «- 25 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 5571 
cu rrCTL. I ndex = 25 
currCTL.Caption = "&Font Size" 
currCTL.DescriptionText = mi 
currCTL.BuiltlnFace = True 
currCTLFaceld = 5571 
currCTL.ShortcutText = 
currCTL.Style = 0 

26 — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL. I ndex = 26 
currCTL.Caption = "Recurring Event" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Face Id = 1977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Style = 3 

, ~ 27 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 1987 
currCTL. I ndex = 27 
currCTL.Caption = "Check Diary" 



i 

j 
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> 

currCTLDescriptionText = 
currCTL.BuiltlnFace = True 

H 

currCTLFaceld = 1987 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

28 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTLID = 1086 
currCTL.Index = 28 
currCTL.Caption = "I&nvite Attendees. 
currCTLDescriptionText = 
currCTL.BuiltlnFace = True 
currCTLFaceld = 1086 
currCTL.ShortcutText = "■ , 
currCTL.Style = 3 

■™ 29 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL. ID = 2 
currCTL.Index = 29 
currCTL.Caption = "Spell Check" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Face Id = 2 
currCTL.ShortcutText = l, F7" 
currCTL.Style = 3 

'— 30 — 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =12 



127 

currCTL.ID = 2611 
currCTL.Index = 30 
currCTL.Captiori = "&Font Color" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = ,,n ■ 
currCTL.Style = 0 

31 

Set currCTL = CurrBar-Controls.Add 
currCTL.Typex = 1 

currCTUD = 19 
currCTL.Index = 31 
currCTL.Captiori = "Copy" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 19 
currCTL.ShortcutText = "Ctrl+C" 
currCTL.Style = 0 

32 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 22 
currCTL.Index = 32 
currCTL.Caption = "Paste" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace =True 
currCTL.Faceld = 22 
currCTL.ShortcutText = "Ctrl+V" 
currCTL.Style = 0 



1^8 

>_ 33 — 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 128 
currCTL. Index = 33 
currCTL.Caption = "&Undo" 
currCTL. DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 128 
currCTL.ShortcutText = "Ctrl+Z H 
currCTL.Style = 0 

34 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 5573 
currCTL Index = 34 
currCTL.Caption = "Forward this Item" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 39 
currCTL.ShortcutText = " 
currCTL.Style = 3 

35 „ 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 777 
currCTL. Index = 35 
currCTL.Caption = "Fi&le..." 
currCTL.DescriptionText = ,,,, 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 777 
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currCTL.ShortcutText = "" 
currCTL. Style = 0 

- — 36 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.!D = 1714 
currCTL. Index = 36 
currCTL.Caption = "&Document Map" 
currCTL. DescriptionText = ,,M 
currCTL.BuiltlnFace = True 
currCTLFaceld = 1714 
currCTL.ShortcutText = "" 
currCTLStyle = 0 

'--Bar 4 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Form Design" 
CurrBar. Visible = False 

'--Bar 5 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Response" 
CurrBar. Visible = False 

'—Bar 6 - 

Set CurrBar = AppointmentBars.Add 
CurrBar.Namex = "Formatting" 
CurrBar. Visible = False 

End Sub 

Public Sub SetContactBarslnfo_Old() 
Dim CurrBar As ClassCmdBar 
Dim currCTL As ClassCmdControl 
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'—Bar 1 

Set CurrBar = ContactBars.Add 
CurrBar.Namex= "Clipboard" 
CurrBar .Visible = False 

'—Bar 2 -- 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Menu Bar" 

CurrBar. Visible = True 
... 1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30131 
currCTL. Index = 1 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Face! d = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30122 
currCTL.Index = 2 

currCTL-Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 



'--3 
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Set currCTL = CurrBar.ControIs.Add 
currCTLTypex = 10 
currCTL.ID = 30130 
currCTL.Index = 3 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = 11,1 
currCTL.Style = 0 

-„ 4 

Set currCTL = CurrBar.ControIs.Add 
currCTLTypex =10 
currCTL.lD = 30127 
currCTL.Index = 4 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

1 — 5 

Set currCTL = CurrBar.ControIs.Add 
currCTLTypex =10 
currCTL. ID = 30002 
currCTL.Index = 5 
currCTLCaption = "&File" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 



currCTLStyle = 0 
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s 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL ID =30003 
currCTL.Index = 6 
currCTL.Caption = "&Edit" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30004 
currCTL. Index = 7 
currCTL.Caption = "&View" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL. ID = 30005 
currCTL.Index = 8 J 
currCTL.Caption = "&lnsert" 

* 

currCTL.DescriptionText = "" 
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currCTL.BuiltlnFace = False 

currCTL.Faceld = 0 
currCTL.ShortcutText = 
currCTL.Style = 0 

•„ g 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30006 
currCTL.Index = 9 
currCTL.Caption = "F&ormat" 
currCTL. DescriptionText = n " 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = 1,11 
currCTLStyle = 0 

... 1 o 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30007 
currCTL.Index = 10 
currCTL.Caption = "&Tools" 
currCTL. DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

»™ 1 1 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL.ID = 30145 
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currCTL. Index =11 
currCTLCaption = "Fo&rm" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

... 12 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30146 
currCTLlndex = 12 
currCTLCaption = "SLayout 1 * 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = 
currCTL.Style = 0 

«... 1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30010 
currCTL. Index =13 
currCTL.Caption = "Microsoft Help " 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = 

currCTLStyle = 0 
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* 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1576 
currCTL.Index =14 
currCTL. Caption = "Useful Help" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 59 
currCTL.ShortcutText = " 
currCTL.Style = 3 

«™ ! 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1665 
currCTL.Index =15 
currCTL. Caption = "Make New Item 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1665 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 6 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 1758 
currCTL.Index = 16 
currCTL.Caption = "New Idea" 
currCTL. DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1758 
currCTLShortcutText = "Ctrl+Shift+N" 
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* 
r 
t 
* 

currCTLStyle = 3 

«... 17 . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 354 
currCTL.Index = 17 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTLFaceld = 2151 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 

... 1 s 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1679 
currCTL.Index = 18 

currCTL.Caption = "Decide What To Do With It 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 49 
currCTL.ShortcutText = "Ctrl+Shift+V" 
currCTL.Style = 3 

1 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1976 
currCTL.Index = 19 
currCTLCaption = "Delegate It" 
currCTL.DescriptionText = "" 
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■ 

currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

20 — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex - 1 
currCTL.ID = 356 
currCTL.Index = 20 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTLShortcutText = "Ctrl+F" 
currCTL.Style = 3 

... 21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex - 1 
currCTL. ID = 478 
currCTL.Index = 21 
currCTL.Caption = "Ditch It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 67 
currCTLShortcutText = "Ctrl+D" 
currCTL.Style = 3 

'—Bar 3 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Standard" 
CurrBar. Visible = True 



i 
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1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2011 
currCTL.lndex = 1 
currCTL.Caption = "Close Item" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 201 1 
currCTL.ShortcutText = "Alt+F4" 

currCTL.Style = 2 

2 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 

currCTL.ID = 1975 

currCTL.lndex = 2 

currCTL.Caption = "Save and Close " 
currCTL. DescriptionText 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTL.ShortcutText = , '" 
currCTL.Style = 3 

•_3_ 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1975 
currCTL.lndex = 3 

currCTL.Caption = "Save and Close" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
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currCTL.ShortcutText = "" 
currCTL. Style = 3 

•_„ 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30005 
currCTL. Index = 4 
currCTL.Captlon = "Get Resources" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5604 
currCTL. Index = 5 
currCTL.Caption = "Edit this Mail" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 31 
currCTL.ShortcutText = 
currCTL.Style = 3 

6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 109 
currCTL.Index = 6 
currCTL.Caption = "Print Now" 
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4 

currCTLDescriptionText - 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2144 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 — 7 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 1978 
currCTL. Index = 7 
currCTL.Caption = "Craft eMail" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1978 
currCTL.ShortcutText = "" 
currCTL.Style = 3 



Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 353 
currCTL.Index = 8 

currCTL.Caption = "Include Others...." 
currCTL. DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Face Id = 0 . 
currCTL.ShortcutText = "Ctrl+Shift+B" 
currCTL.Style = 3 

9 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
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* 

currCTL.ID = 2617 
currCTL. Index = 9 
currCTL.Caption = "&Send" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2617 
currCTL.ShortcutText = "Ctrl+Enter" 
currCTL.Style = 3 

-i o 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL. ID = 2004 
currCTL Index = 10 

currCTLCaption = "Cancel Delegation 
currCTL.DescriptionText = 

» 

currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = " 
currCTL.Style = 3 

■_ 1 1 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 354 
currCTL. Index = 11 
currCTL.Caption = "Reply" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 354 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 
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... i 2 — 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 355 
currCTL. Index = 12 
currCTL.Caption = "Reply to A&H" 
currCTL.DescriptionText = ,,,, 
currCTL.BuiltlnFace = True 
currCTL. Face Id = 355 
currCTL.ShortcutText = "Ctrl+Shift+R" 
currCTL.Style = 3 

... 1 3 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 356 
currCTL.Index =13 
currCTL.Caption = "Forward" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 356 
currCTL.ShortcutText = "Ctrl+F" 
currCTL.Style = 3 

» 

... ! 4 . — 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL.Index = 14 
currCTL.Caption = "Recurring Task" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTL. Faceld = 1977 
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■ 

currCTL.ShortcutText = "Ctrl+G" 
currCTL. Style = 3 

... 15 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2985 
currCTL. Index =15 

currCTL.Caption = "Mark This Task Complete" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 2985 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1760 

o 

currCTL. Index = 16 

currCTL.Caption = "Send Task Status Update" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1760 
currCTL.ShortcutText = ,,n 
currCTL.Style = 3 

1 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5433 
currCTL. Index =17 
currCTL.Caption = "New Appointment" 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 

i 

currCTLFaceld = 2148 
currCTLShortcutText = "" 
currCTL.Style = 3 

•„. 1 s : — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1979 
currCTL. Index =18 
currCTLCaption = "New Task" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 1979 
currCTLShortcutText = "" 
currCTLStyle = 3 

'„. 1 9 . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =1 
currCTL.ID = 360 
currCTL. Index = 19 
currCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 360 
currCTL.ShortcutText = "Ctrl+>" 
currCTL.Style = 3 

20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
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currCTL.ID = 359 
currCTL.Index = 20 
currCTL.Caption = "Previous Itern" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 359 
currCTL.ShortcutText = "Ctrl+<" 
currCTL-Style = 3 

«... 21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5571 
currCTL.Index = 21 
currCTL.Caption = "&Font Size" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 5571 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

22 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL.Index = 22 

currCTL.Caption = "Recurring Event" 

> 

currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Style = 3 



t 

i 
■ 
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■„. 23 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1987 
currCTL. Index = 23 
currCTL.Caption = "Check Diary" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1987 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

24 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1086 
currCTL. Index = 24 

currCTL.Caption = "l&nvite Attendees..." 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1086 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

25 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2 
currCTL.Index = 25 
currCTL.Caption = "Spell Check" 
currCTL.DescriptionText = ,,n 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2 
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currCTL.ShortcutText = "F7" 
currCTL.Style = 3 

26 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 12 
currCTL.ID = 2611 
currCTL. Index = 26 
currCTL.Caption = "&Font Color" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Face Id = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

•„_ 27 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 19 
currCTL.Index = 27 
currCTL.Caption = "Copy" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 19 
currCTL.ShortcutText = "Ctrl+C" 
currCTL.Style = 0 

«... 28 — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 22 
currCTL.Index = 28 
currCTL.Caption = "Paste" 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 22 
currCTLShortcutText = "Ctrl+V" 

currCTL.Style = 0 

29 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 128 
currCTL. Index = 29 
currCTL.Caption = "&Undo" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Face Id = 128 
currCTLShortcutText = "Ctrl+Z" 
currCTL.Style = 0 

... 30 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 5573 
currCTL.Index = 30 
currCTL.Caption = "Forward this Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 39 
currCTLShortcutText = "" 
currCTL.Style = 3 

31 , 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
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currCTL.ID = 777 
currCTL. Index = 31 
currCTL.Caption = "Fi&le..." 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 777 
currCTL.ShortcutText =: "" 
currCTL.Style = 0 

32 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 1714 
currCTL.Index = 32 
currCTL.Caption = "&Document Map 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1714 
currCTL.ShortcutText = " 
currCTL.Style = 0 

'—Bar 4 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Form Design" 
CurrBar.Visible = False 

' - Bar 5 — — 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Response" 
CurrBar.Visible = False 

'—Bar 6 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Formatting" 
CurrBar.Visible = False 
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End Sub 

Public Sub SetContactBarslnfo() 
Dim CurrBar As ClassCmdBar 
Dim currCTL As ClassCmdControl 

'--Bar 1 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Clipboard" 
CurrBar. Visible = False 

'---Bar 2 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Menu Bar" 

CurrBar.Visible = True 
«... 1 

Set currCTL = CurrBar.ControIs.Add 
currCTLTypex = 1 0 
currCTL.ID = 30131 
currCTL.Index = 1 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

2 

Set currCTL = CurrBar.ControIs.Add 
currCTLTypex = 10 
currCTL.ID = 30122 
currCTL. Index = 2 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
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currCTL.BuiltlnFace = False 

currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTLStyle = 0 

3 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 10 
currCTL.ID = 30130 
currCTL.lndex = 3 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Styie = 0 

• 4 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex =10 
currCTL!D = 30127 
currCTL.lndex = 4 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Styie = 0 

.... 5 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 10 
currCTL. ID = 30002 



s 
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currCTL. Index = 5 
currCTL.Caption = "&File" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL. Style = 0 

s .... 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTUD = 30003 
currCTL.Index = 6 
currCTL.Caption = "&Edit" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcuffext = "" 
currCTL.Style = 0 

>„_ 7 . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30004 
currCTL.Index = 7 
currCTL.Caption = "&View" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 



'—8 
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3 * 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.iD = 30005 
currCTL. Index = 8 
currCTL.Caption = "Sclnsert" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = u " 
currCTL.Style = 0 

l — 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.iD = 30006 
currCTL.Index = 9 
currCTL.Caption = "F&ormat" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = " tt 
currCTL.Style = 0 

«_ 1 o 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.iD = 30007 
currCTL.Index = 10 
currCTL.Caption = "&Tools" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Face Id = 0 
currCTL.ShortcutText = 
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currCTL.Style = 0 

1 1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.lD = 30145 
currCTL. Index =11 
currCTL.Caption = "Fo&rm" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTLShortcutText = 

currCTL.Style = 0 

— 1 2 

* Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30146 
currCTL.Index = 12 
currCTL.Caption = "StLayout" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = " 
currCTL.Style = 0 

«™ ! 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30010 
currCTL.Index = 13 
currCTL.Caption = "Microsoft Help " 
currCTL. DescriptionText = 
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currCTLBuiltlnFace = False 
currCTL.Faceld = 0 

d 

currCTL.ShortcutText = "" 
currCTL.Style = 0 

•— 14 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1576 
currCTL.Index = 14 
eurrCTLCaption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL. Faceld = 59 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

«... 1 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1665 
currCTL.Index = 15 
currCTL.Caption = "Make New Item 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = .True 
currCTL.Faceld = 1665 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1758 
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currCTL Index =16 
currCTL. Caption = "New Idea" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Face Id = 1758 
currCTLShortcufText = "Ctrl+Shift+N" 

currCTL.Style = 3 

.-. 17 

Set currCTL = CurrBar.Controls.Add 
currCTL. Typex = 1 
currCTL. ID = 354 
currCTL.Index = 17 
currCTLCaption = "Deal With It Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2151 
currCTL-ShortcutText = "Ctrl+R" 

currCTL.Style = 3 

-..-is 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTLID = 1679 
currCTL.Index = 18 

currCTL.Caption = "Decide What To Do With It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 49 
currCTLShortcutText = "Ctrl+Shift+V" 
currCTL.Style = 3 

L..19 
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Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1976 
currCTL. Index = 19 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 2141 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... 20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 356 
currCTL.Index = 20 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 2141 
currCTL.ShortcutText = "Ctrl+F" 
currCTL.Style = 3 

21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 478 
currCTL.Index = 21 
currCTL. Caption = "Ditch It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 67 
currCTL.ShortcutText = "Ctrl+D" 
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currCTL.Style = 3 

'—Bar 3 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Standard" 

i 

CurrBar. Visible = True 

1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2011 
currCTL.Index = 1 
currCTL.Caption = "Close Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 20 11 
currCTL.ShorlcutText = "Ait+F4" 
currCTL.Style = 2 

2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1975 
currCTL.Index = 2 

currCTL.Caption = "Save and Close " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTL.ShortcutText = " 
currCTL.Style = 3 

3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
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currCTL.lD = 30005 
currCTL.Index = 3 
currCTL.Caption = "Get Resources" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTLFaceld = 0 
currCTL.ShortcutText = 
currCTL.Style = 0 

4 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 109 
currCTL.Index = 4 
currCTL.Caption = "Print Now" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTLFaceld = 2144 
currCTL.ShortcutText = "" 
currCTL.Sty!e = 3 

5 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =1 
currCTLID = 1978 
currCTL.Index = 5 
currCTLCaption = "Craft eMail" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1978 
currCTL.ShortcutText = " 
currCTL.Style = 3 
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•_„ 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 5433 
currCTL.Index = 6 

currCTL.Caption = "New Appointment" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2148 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

i "7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 1979 
currCTL.Index = 7 
currCTL.Caption = "New Task" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld « 1979 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

-_ 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 360 
currCTL.Index = 8 
currCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 360 
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» 

currCTL.ShortcutText = "Ctrl+>" 
currCTLStyle = 3 

'— 9 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 359 
currCTL.Index = 9 
currCTL.Caption = "Previous Item" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 359 
currCTL.ShortcutText = "Ctrl+<" 
currCTL.Style = 3 

'— 10 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 2 

« 

currCTL.Index = 10 
currCTL.Caption = "Spell Check" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2 
currCTL-ShortcutText = "F7" 
currCTL.Style = 3 

.... 1 1 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 2 
currCTL.ID = 261 1 
currCTL.Index =11 
currCTL.Caption = "&Font Color" 
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currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = 
currCTL.Style = 0 

'.„ 12 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTLID = 19 
currCTL. Index = 12 
currCTLCaption = "Copy" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 19 
currCTLShortcutText = "Ctrl+C" 
currCTL.Style = 0 

1 3 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL. ID = 22 
currCTL.Index = 13 
currCTLCaption = "Paste" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 22 
currCTLShortcutText = "Ctrl+V" 

currCTL.Style = 0 

•„. 14 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 



163 



currCTL.ID = 128 
currCTL.Index = 14 
currCTL.Caption = "&Undo" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 128 
currCTL.ShortcutText = "Ctrl+Z" 
currCTL.Style = 0 

t 5 — . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5573 
currCTLIndex = 15 
currCTL.Caption = "Forward this Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 39 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 6 r 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 777 
currCTL.Index = 16 
currCTL.Caption = "Fi&le..." 
currCTL.DescriptionText = "". 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 777 
currCTL.ShortcutText = "" 

currCTL.Style = 0 
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»_17 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTUD = 1714 
currCTL.lndex = 17 
currCTL.Caption = "&Document Map 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1714 
currCTL.ShortcutText = ,IM 
currCTL.Style = 0 

'—Bar 4 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Form Design" 
CurrBar. Visible = False 

--Bar 5 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Response" 
CurrBar. Visible = False 

'--Bar 6 

Set CurrBar = ContactBars.Add 
CurrBar.Namex = "Formatting" 
CurrBar.Visible = False 

End Sub 

Sub SetCtllndexInfo() 

ItemMainBarlndexArray(l) = 30131 
ltemMainBarlndexArray(2) = 30122 
ltemMainBarlndexArray(3) = 30130 
ltemMainBar!ndexArray(4) = 30127 
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ltemMainBarlndexArray(5) = 30002 
ltemMainBarlndexArray(6) = 30003 
ltemMainBarlndexArray(7) = 30004 
ltemMainBarlndexArray(8) = 30005 
ltemMainBarlndexArray(9) = 30006 
ltemMair»BarlndexArray(1 0) = 30007 

1 ItemMainBarlndexArrayO 1 )= 301 45 
' ltemMainBarlndexArray(1 2) = 301 46 

' ItemMainBarlndexArrayO 3) = 3001 0 

1 ItemMainBarlndexArrayO 4) = 1576 

1 ItemMainBarlndexArrayO 5) = 1 665 

' ItemMainBarlndexArrayO 6) = 1758 

' ItemMainBarlndexArrayO 7) = 354 

1 ItemMainBarlndexArrayO 8) = 1679 

' ItemMainBarlndexArrayO 9) = 1 976 

' ltemMainBarlndexArray(20) = 356 

' ItemMainBarlndexArray(21 ) = 478 

ItemMainBarlndexArray0 1 ) = 30010 
ItemMainBarlndexArrayO 2) = 1576 
ItemMainBarlndexArrayO 3) = 1665 
ItemMainBarlndexArrayO 4) = 1758 
ItemMainBarlndexArrayO 5) = 354 
ItemMainBarlndexArrayO 6) = 1679 
ItemMainBarlndexArrayO 7) = 1976 
ItemMainBarlndexArrayO 8) = 356 
ItemMainBarlndexArrayO 9) = 478 

ItemStdBarlndexArrayO) = 201 1 
ltemStdBarlndexArray(2) = 1975 
ltemStdBarlndexArray(3) = 30005 . 
ltemStdBarlndexArray(4) = 5604 
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ltemStdBarlndexArray(5) = 1 09 
ltemStdBarlndexArray(6) = 1 978 
ltemStdBarlndexArray(7) = 353 
ltemStdBarlndexArray(8) = 261 7 
ltemStdBarlndexArray(9) = 2004 
ltemStdBarlndexArray(1 0) = 354 
ltemStdBarlndexArray(1 1) = 355 
ltemStdBarlndexArray(12) = 356 
ltemStdBarlndexArray(13) = 1977 
ltemStdBarlndexArray(14) = 2985 
ltemStdBarlndexArray(15) = 1760 
ltemStdBarlndexArray(16) = 5433 
ltemStdBarlndexArray(1 7) = 1 979 
ltemStdBarlndexArray(18) = 360 
ltemStdBarlndexArray(19) = 359 
ltemStdBarlndexArray(20) = 5571 
ltemStdBarlndexArray(21) = 1977 
ltemStdBarlndexArray(22) = 1987 
ltemStdBarlndexArray(23) = 1086 
ltemStdBarindexArray(24) = 2 
ltemStdBarlndexArray(25) = 261 1 
ltemStdBarlndexArray(26) = 19 
ltemStdBarlndexArray(27) = 22 
ltemStdBarlndexArray(28) = 128 
ltemStdBarlndexArray(29) = 5573 
ltemStdBarlndexArray(30) = 777 
ltemStdBarlndexArray(31) = 1714 

End Sub 

Public Sub SetMailBarslnfo_old() 
Dim CurrBar As ClassCmdBar 
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Dim currCTL As ClassCmdControl 

'—Bar 1 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Clipboard" 
CurrBar.Visible = False 

■~ Bar 2 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Menu Bar" 

CurrBar. Visible = True 
■™ 1 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL!D = 30131 
currCTL. Index = 1 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

2 

Set currCTL = CurrBar.Controls.Add 

currCTLTypex = 10 
currCTL.ID = 30122 
currCTL.Index = 2 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 
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«_ 3 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30130 
currCTL.lndex = 3 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = 
currCTL.Sty!e = 0 

4 , 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTLID = 30127 
currCTL.lndex = 4 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = 
currCTL.Style = 0 

■™ 5 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30002 
currCTL.lndex = 5 
currCTL.Caption = "&File" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
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5 

currCTL.ShortcutText = "" 
currCTLStyle = 0 

•„_ 6 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL.ID = 30003 
currCTL. Index = 6 
ciirrCTL.Caption = "&Edit" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTLStyle = 0 

■„_ 7 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL.ID = 30004 
currCTL.Index = 7 
currCTLCaption = "&View" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

8 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
currCTL.ID = 30005 
currCTL.Index = 8 
currCTL.Caption = "&lnsert" 
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currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = False 

currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

'„. 9 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL.ID = 30006 
currCTL.Index = 9 
currCTL.Caption = "F&ormat" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

1 o 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTLID = 30007 
currCTL.Index = 10 
currCTL.Caption = "&Tools" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

.... i ! 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
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currCTL.ID = 30145 
currCTL.Index= 11 
currCTL.Caption = "Fo&rm" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTLStyle = 0 

•_„ 12 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30146 
currCTLIndex = 12 
currCTL.Caption = "&Layout" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTLStyle = 0 

■„. 1 3 

Set currCTL - CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30010 
currCTL.Index = 13 
currCTL.Caption = "Microsoft Help " 
currCTL.DescriptionText = "" 

cu rrCTL. B u i Itl n Face = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 
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'.„ 14 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 1576 
currCTL. Index =14 
currCTL.Caption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 

currCTL. Faceld = 59 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

_„ -j 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 1665 
currCTL.Index =15 
currCTL.Caption = "Make New Item 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1665 
currCTL.ShortcutText = "" 
currCTLStyle = 3 

1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1758 
currCTL.Index = 16 
currCTL.Caption = "New Idea" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1758 
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currCTL.ShortcutText = "Ctrl+Shift+N" 
currCTL.Styie = 3 

■„. 17 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 354 
currCTL.Index = 17 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2151 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Styie = 3 

... 18 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 1679 
currCTL.Index =18 

currCTL.Caption = "Decide What To Do With It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 49 
currCTL-ShortcutText = "Ctrl+Shift+V" 
currCTL.Styie = 3 

■_„ 1 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 1976 
currCTL.Index =19 
currCTLCaption = "Delegate It" 
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currCTLDescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

'— 20 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 356 
currCTLIndex = 20 
currCTL.Caption = "Delegate It" 
currCTLDescriptionText = m ' 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "Ctrl+F" 

currCTL.Style = 3 

21 — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 478 
currCTL.Index = 21 
currCTL.Caption = "Ditch It" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 67 
currCTL.ShortcutText = "Ctrl+D" 
currCTL.Style = 3 

'—Bar 3 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Standard" 
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CurrBar. Visible = True 
... 1 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 

currCTL.ID = 201 1 

currCTLIndex = 1 

currCTL.Caption = "Close Item" 

currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = True 

currCTL.Faceld =2011 

currCTL.ShortcutText = "Alt+F4" 

currCTL.Style = 2 

... 2 -— 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1975 
currCTL.Index = 2 

currCTL.Caption = "Save and Close " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTL.ShortcutText = "" 
currCTL. Style = 3 

.... 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1975 
currCTL.Index = 3 

currCTL.Caption = "Save and Close" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
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currCTL.Faceld = 271 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30005 
currCTL.Index = 4 
currCTL.Caption = "Get Resources" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

._. 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5604 
currCTL. Index = 5 
currCTL.Caption = "Edit this Mail" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Face Id = 31 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

<„. 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 109 
currCTL.Index = 6 
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j 

currCTL.Caption = "Print Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2144 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1978 

currCTL.lndex = 7 
currCTL.Caption = "Craft eMail" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1978 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

8 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 353 
currCTL.lndex = 8 

currCTL.Caption = "Include Others...." 
currCTL.DescriptionText = "" 
cu rrCTL. B u iltl n Face = False 
currCTL.Faceld = 0 
currCTL-ShortcutText = "Ctrl+Shift+B" 
currCTL.Style = 3 

g 

Set currCTL = CurrBar.Controls.Add 
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currCTL.Typex = 1 
currCTL.ID = 2617 
currCTL. Index = 9 
currCTL.Caption = "&Send" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2617 
currCTL.ShortcutText = "Ctrl+ Enter" 

currCTL.Style = 3 

! o 

Set currCTL = CurrBar. Controls. Add 
currCTL.Typex = 1 
currCTL.ID = 2004 
currCTL Index =10 
currCTL.Caption = "Cancel Delegation 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 354 
currCTL. Index = 11 
currCTL.Caption = "Reply" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 354 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 
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1 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 355 
currCTL.Index = 12 
currCTL.Caption = "Reply to A&ll" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 355 
currCTL.ShortcutText = "Ctrl+Shift+R" 

currCTL.Style = 3 

«... 13 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 356 
currCTL.Index =13 
currCTL.Caption = "Forward" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 356 
currCTLShortcutText = "Ctrl+F" 

currCTLStyle = 3 

14 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL.Index = 14 
currCTL.Caption = "Recurring Task" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
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currCTL.Faceld = 1977 
currCTL.ShortcutText = "Ctrl+G" 

currCTL.Style = 3 

_.. 1 5 - 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2985 
currCTL.Index =15 

currCTL.Caption = "Mark This Task Complete" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2985 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

„_ 1 e 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1760 
currCTL.Index =16 

currCTL.Caption = "Send Task Status Update" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1760 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 7 .. 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5433 
currCTL.Index = 17 
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currCTL.Caption = "New Appointment" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2148 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

... 1 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1979 
currCTL. Index = 18 
currCTL.Caption = "New Task" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1979 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

'— 1 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 360 
currCTL.Index =19 
currCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 360 
currCTL.ShortcutText = "Ctrl+>" 
currCTL.Style = 3 

.... 20 

Set currCTL = CurrBar.Controls.Add 
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currCTL.Typex = 1 
currCTL.ID = 359 
currCTL.Index = 20 
currCTL.Caption = "Previous Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 359 
currCTL.ShortcutText = "Ctrl+<" 
currCTL.Style = 3 

21 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTLID = 5571 
currCTL.Index = 21 
currCTLCaption = "&Font Size" 
currCTLDescriptionText = "" 
currCTLBuiltlnFace = True 
currCTL.Faceld = 5571 
currCTLShortcuffext = "" 
currCTL.Style = 0 

22 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL.Index = 22 
currCTL.Caption = "Recurring Event" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Style = 3 



183 



'_„ 23 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 1987 
currCTL. Index = 23 
currCTLCaption = "Check Diary" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1987 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

24 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1086 
currCTL.Index = 24 
currCTL.Caption = "l&nvite Attendees. 
currCTL.DescriptionText = "" 
currCTL-BuiltlnFace = True 
currCTL. Faceld = 1086 
currCTLShortcutText = "" 

currCTL.Style = 3 

•„_ 25 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 2 
currCTL.Index = 25 
currCTL.Caption = "Spell Check" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
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currCTL.Faceld = 2 
currCTL.ShortcutText = "F7" 

currCTL.Style = 3 

•„_ 26 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 12 
currCTL.ID = 2611 
currCTL. Index = 26 

* £ 

currCTL.Caption = "&Font Color" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

•„. 27 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 19 
currCTL.Index = 27 
currCTL.Caption = "Copy" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 19 
currCTL-ShortcutText = "Ctrl+C" 
currCTL.Style = 0 

■_„ 28 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 22 
currCTL.Index = 28 
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currCTL.Caption = "Paste" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 22 
currCTL.ShortcutText = "Ctrl+V" 

currCTL.Style = 0 

29 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 128 
currCTL. Index = 29 
currCTL-Caption = "&Undo" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 128 
currCTL.ShortcutText = "Ctrl+Z" 
currCTLStyle = 0 

30 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 5573 
currCTL.Index = 30 
currCTL.Caption = "Forward this Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 39 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... 31 

Set currCTL = CurrBar.Controls.Add 



* 
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currCTL.Typex = 1 
currCTUD = 777 
currCTL.index = 31 
currCTL.Caption = "Fi&le..." 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 777 
currCTL.ShortcutText = 
currCTL.Style = 0 

32 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 1714 
currCTL.index = 32 
currCTL.Caption = "&Document Map" 
currCTL.DescriptionText = ,,M 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1714 
. currCTL.ShortcutText = 1,11 
currCTL.Style = 0 

'—Bar 4 

Set CurrBar = ReadBars.Add 
CurrBar.Narnex = "Form Design" 
CurrBar. Visible = False 

'—Bar 5 

Set CurrBar = ReadBars.Add 
CurrBar.Narnex = "Response" 
CurrBar.Visible = False 

'--Bar 6 

Set CurrBar = ReadBars.Add 
CurrBar.Narnex = "Formatting" 
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i 

r 

5 

CurrBar.Visible = False 

'—Bar 7 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Clipboard" 
CurrBar.Visible = False 

'—Bar 8 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Menu Bar" 

CurrBar.Visible = True 

1 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 10 

currCTL.ID = 30131 

currCTL.Index = 1 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTLStyle = 0 

■_„ 2 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30122 
currCTL. Index = 2 

currCTLCaption = "Unlocking OUTLOOK" 
cu rrCTL. DescriptionText 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTLStyle = 0 
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3 — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30130 
currCTL.Index = 3 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = " n 
currCTL.Style = 0 

4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30127 
currCTL.Index = 4 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = 11 " 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = 

currCTL.Style = 0 

1 — 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30002 
currCTL.Index = 5 
currCTL.Caption = "&File" 
currCTL.DescriptionText = 1,11 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
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currCTL.ShortcutText = "" 
currCTL.Style = 0 

■„_ e 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30003 
currCTL. Index = 6 
currCTL.Caption = "&Edit" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

■„. 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL. ID = 30004 
currCTL. Index = 7 
currCTL.Caption = "&View" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

■_„ 8 , 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30005 
currCTL.Index = 8 
currCTL.Caption = "&lnsert" 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 

currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 

•_„ g 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTLID = 30006 
currCTLIndex = 9 
currCTL. Caption = "F&ormat" 
currCTLDescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTLShortcutText = "" 
currCTLStyle = 0 

-jo 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
currCTLID = 30007 
currCTL.Index = 10 
currCTL.Caption = "&Tools" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = " M 
currCTL.Style = 0 

"... 1 1 -— 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
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currCTL.ID = 30145 
currCTL.Index = 1 1 
currCTL.Caption = "Fo&rm" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld =0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

1 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTLID = 30146 
currCTL.Index = 12 
currCTL.Caption = "&Layout" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace - False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTLStyle = 0 

«„. 1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30010 
currCTL. Index = 13 
currCTL.Caption = "Microsoft Help " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 



i 
i 
i 
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i 

1 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1576 
currCTL.Index = 14 . 
currCTL.Caption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 59 
currCTL-ShortcutText = "" 
currCTL.Style = 3 

'„. 1 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 1665 
currCTL.Index= 15 
currCTL.Caption = "Make New Item 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1665 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

■_„ 1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1758 
currCTL.Index =16 
currCTL.Caption = "New Idea" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1758 
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currCTL.ShortcutText = "Ctrl+Shift+N" 
currCTL.Style = 3 

-.„ ! 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLlD = 354 
currCTL.Index = 17 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 

-.„ -j 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1679 
currCTL.Index = 18 

currCTLCaption = "Decide What To Do With It" 
currCTL. DescriptionText - "" 
currCTL.BuiltjnFace = False 
currCTL. Faceld = 49 
currCTL.ShortcutText = "Ctrl+Shift+V" 
currCTL.Style = 3 

•.„19 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1976 
currCTL.Index = 19 
currCTL.Caption = "Delegate It" 
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t 

currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Sty!e = 3 

20 

Set currCTL = CurrBar.Controls.Add 

currCTLTypex = 1 
currCTL. ID = 356 
currCTL. Index = 20 
currCTLCaption = "Delegate It" 
currCTL. DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL. Faceld = 0 
currCTLShortcutText = "Ctrl+F" 
currCTL.Style = 3 

21 

Set currCTL = CurrBar.Controls.Add 

a 

currCTLTypex = 1 
currCTL.ID = 478 
currCTL. Index = 21 
currCTL.Caption = "Ditch It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "Ctrl+D" 
currCTL.Style = 3 

'—Bar 9 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Standard" 
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CurrBar .Visible = True 
... 1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2011 
currCTL.Index = 1 
currCTLCaption = "Close Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2011 
currCTL.ShortcutText = "Alt+F4" 
currCTL.Style = 2 

... 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1975 
currCTL.Index = 2 

currCTL.Caption = "Save and Close " 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTL.ShortcutText = ,M> 
currCTL.Style = 3 

.... 3 .... 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.lD = 1975 
currCTL.Index = 3 

currCTL.Caption = "Save and Close" 
currCTL.DescriptionText 
currCTL.BuiltlnFace = False 
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* 

currCTL.Faceld = 271 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 — 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30005 
currCTL. Index = 4 
currCTL.Caption = "Get Resources" 
currCTL.DescriptionText = ,,n 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5604 
currCTL. Index = 5 
currCTL.Caption = "Edit this Mail" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 31 
currCTLShortcutText = "" 
currCTL.Style = 3 

.„ 6 _ 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 109 
currCTL. I ndex = 6 



i 
i 
i 
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i 
1 

> 

1 

currCTL.Caption = "Print Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTLFaceld = 2144 
currCTLShortcutText = "" 
currCTL.Style = 3 

... 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1978 
currCTL.Index = 7 
currCTLCaption = "Craft eMail" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 1978 
currCTLShortcutText = "" 
currCTL.Style = 3 

•„. 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 353 
currCTL.Index = 8 

currCTL.Caption = "Include Others...." 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTLShortcutText = "Ctrl+Shift+B" 
currCTL.Style = 3 

* 

■— 9 

Set currCTL = CurrBar.Controls.Add 
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currCTLTypex = 1 
currCTL.ID = 2617 
currCTLIndex = 9 
currCTL.Caption = "&Send M 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTLFaceld = 2617 
currCTL.ShortcutText = "Ctrl+Enter" 
currCTL.Style = 3 

>„. 10 — - 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 2004 
currCTL. Index =10 
currCTL.Caption = "Cancel Delegation 
currCTL.DescriptionText = 11,1 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 -| 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 354 

■ 

currCTLIndex = 1 1 
currCTLCaption = "Reply" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 354 
currCTLShortcutText = "Ctrl+R" 
currCTL.Style = 3 
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1 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 355 
currCTL.Index = 12 
currCTL.Caption = "Reply to A&ll" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 355 
currCTL.ShortcutText = "Ctrl+Shift+R" 

currCTL.Style = 3 

... 1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 356 
currCTL. Index =13 
currCTL.Caption = "Forward" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 356 
currCTL.ShortcutText = "Ctrl+F" 
currCTLStyle = 3 

l 

1 4 . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL.Index = 14 
currCTL.Caption = "Recurring Task" 
currCTL.DescriptionText = M " 
currCTL.BuiltlnFace = True 
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currCTLFaceld = 1977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Sty!e = 3 

'— 1 5 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.lD = 2985 
currCTL. Index = 15 

currCTL. Caption = "Mark This Task Complete" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 2985 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

•„. -! 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1760 
currCTL.Index = 16 

currCTL.Caption = "Send Task Status Update" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 1760 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... ! 7 . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 5433 
currCTL.Index = 17 
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currCTL.Caption = "New Appointment" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 21 48 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

-.„ 1 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1979 
currCTLIndex =18 
currCTL.Caption = "New Task" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 1979 
currCTLShortcutText = "" 
currCTL.Style = 3 

... 1 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 360 
currCTL.Index = 19 
currCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTL-BuiltlnFace = True 
currCTL.Faceld = 360 
currCTLShortcutText = "Ctrl+>" 
currCTL.Style = 3 

... 20 

Set currCTL = CurrBar.Controls.Add 



» 

i 
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I 

currCTL.Typex = 1 
currCTUD = 359 
currCTL. Index = 20 
currCTL.Caption = "Previous Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

currCTL. Faceld = 359 
currCTL.ShortcutText = "Ctrl+<" 

currCTL.Style = 3 

21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5571 
currCTL.Index = 21 
currCTL.Caption = "&Font Size" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 5571 
currCTLShortcutText = "" 
currCTLStyle = 0 

22 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL.Index = 22 
currCTL.Caption = "Recurring Event" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = True 
currCTLFaceld = 1977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Style = 3 
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•_„23 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.!D = 1987 
currCTUndex = 23 
currCTL.Caption = "Check Diary" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

currCTL.Faceld = 1987 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

24 — 

Set currCTL = CurrBar.Controis.Add 
currCTLTypex = 1 
currCTL.ID = 1086 
currCTL. Index = 24 
currCTL.Caption = "l&nvite Attendees. 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1086 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

■_„ 25 

Set currCTL = CurrBar.Controis.Add 
currCTL.Typex = 1 
currCTL.ID = 2 
currCTL.Index = 25 
currCTL.Caption = "Spell Check" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
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currCTL.Faceld = 2 
currCTL.ShortcutText = "F7" 

currCTL. Style = 3 

«... 26 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 12 
currCTL.ID = 2611 
currCTL. Index = 26 
currCTL.Caption = "&Font Color" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 27 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 19 
currCTL.Index = 27 
currCTL.Caption = "Copy" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 19 
currCTL.ShortcutText = "Ctrl+C" 

currCTL.Style = 0 

28 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 22 
currCTL.Index = 28 
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currCTL.Caption = "Paste" 
currCTL.DescriptionText 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 22 
currCTL-ShortcutText = "Ctrl+V" 
currCTL.Style = 0 

29 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID= 128 
currCTL.Index = 29 
currCTLCaption = "&Undo" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLPaceld = 128 
currCTLShortcutText = "Ctrl+Z" 

currCTL.Style = 0 

... 30 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
. currCTL.ID = 5573 
currCTL.Index = 30 
currCTL.Caption = "Forward this Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 39 
currCTLShortcutText = "" 
currCTL.Style = 3 

... 31 

Set currCTL = CurrBar.Controls.Add 
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currCTLTypex = 1 
currCTL.ID = 777 
currCTL. Index = 31 
currCTL.Caption = "Fi&Ie..." 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 777 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

32 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 1714 
currCTLJndex = 32 
currCTL.Caption = "&Document Map" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1714 
currCTL.ShortcutText = ,,,, 
currCTL.Style = 0 

'—Bar 1 0 

Set CurrBar = ReadBars.Add 
CurrBar.Namex - "Form Design" 
CurrBar. Visible = False 

'—Bar 1 1 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Response" 
CurrBar.Visible = False 

'—Bar 1 2 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Formatting" 
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CurrBar.Visible = False 



End Sub 

Public Sub SetMailBarslnfo() 
Dim CurrBar As ClassCmdBar 
Dim currCTL As ClassCmdControl 

'—Bar 1 

Set CurrBar = ReadBars.Add 

CurrBar.Namex = "Clipboard" 

CurrBar.Visible = False 

'—Bar 2 

Set CurrBar = ReadBars.Add 

CurrBar.Namex = "Menu Bar" 

CurrBar.Visible = True 

1 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 10 

currCTL. ID = 30131 

currCTL. Index = 1 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

.... 2 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
currCTL.ID = 30122 
currCTL.Index = 2 

currCTLCaption = "Unlocking OUTLOOK" 



I 

1 
L 

1 

268 

* 

currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTLStyle = 0 

•„. 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30130 
currCTL.Index = 3 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

■ 

4 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTLID = 30127 
currCTL.Index = 4 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 

.... 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
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currCTL.ID = 30002 
currCTL. Index = 5 
currCTL.Caption = "&File" 
currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

... 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30003 
currCTL.Index = 6 
currCTL.Caption = "&Edit" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL-ShortcutText = "" 
currCTL.Style = 0 

7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL. ID = 30004 
currCTL.Index = 7 
currCTL. Caption = "&View" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 
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«... 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30005 
currCTL.Index = 8 
currCTL.Caption = '^Insert" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTLFaceld = 0 
currCTL.ShortcutText = 

currCTL.Style = 0 

9 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 10 
currCTL.ID = 30006 
currCTL.Index = 9 
currCTL.Caption = "F&ormaf 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 

currCTL. Style = 0 

.... ! o — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30007 
currCTL.Index = 10 
currCTL.Caption = "&Tools" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
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currCTLShortcutText = "" 
currCTL.Style = 0 

1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30010 
currCTLIndex = 13 
currCTL.Caption = "Microsoft Help " 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 0 
currCTL-ShortcutText = "" 
currCTL.Style = 0 

'»- 14 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 

currCTL.ID = 1576 

currCTL.lndex =14 

currCTL. Caption = "Useful Help" 

currCTL.DescriptionText = "" 

currCTLBuiltlnFace = False 
currCTL.Faceld = 59 
currCTLShortcutText = "" 
currCTLStyle = 3 

.... 1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 1758 
currCTL.lndex = 16 
currCTL.Caption = "New Idea" 



2i2 

♦ 

currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTL.Faceld = 1758 
currCTLShortcutText = "Ctrl+Shift+N" 

currCTL.Style = 3 

■_„ 1 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 354 
currCTL.Index = 17 
currCTL.Caption = "Deal With It Now" 
currCTLDescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 2151 
currCTLShortcutText = "Ctrl+R" 
currCTLStyle = 3 

•_„ 1 8 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTLID = 1679 
currCTL.Index =18 

currCTL Caption = "Decide What To Do With It" 
currCTLDescriptionText .= "" 
currCTLBuiltlnFace = False 

currCTL.Faceld = 49 
currCTLShortcutText = "Ctrl+Shift+V" 

currCTLStyle = 3 

■„_ 19 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
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currCTL.ID = 1976 
currCTL. Index = 19 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

•„. 20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 356 
currCTL. Index = 20 
currCTLCaption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "Ctrl+F" 
currCTL.Style = 3 
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Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 478 
currCTL.Index = 21 
currCTL.Caption = "Ditch It" 
currCTL.DescriptionText = "" 
' . currCTL.BuiltlnFace = False 
currCTL.Faceld = 67 
currCTL.ShortcutText = "Ctrl+D" 

currCTL.Style = 3 
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i 

'—Bar 3 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Standard" 
CurrBar. Visible = True 

'— 1 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 201 1 
currCTL.lndex = 1 
currCTL.Caption = "Close Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

currCTL.Faceld = 201 1 
currCTL.ShortcutText = "Alt+F4" 

currCTL.Style = 2 

2 

Set currCTL = CurrBar.ControIs.Add 
currCTLTypex - 1 
currCTL.ID= 1975 
currCTL.lndex = 2 

currCTL.Caption = "Save and Close " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30005 
currCTL.lndex = 3 
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currCTLCaption = "Get Resources" 
currCTLDescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

■„. 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTUD = 5604 
currCTL.Index = 4 
currCTLCaption = "Edit this Mail" 
currCTLDescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 31 
currCTLShortcutText = "" 
currCTL.Style = 3 

■„. 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID= 109 
currCTL.Index = 5 
currCTLCaption = "Print Now" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2144 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

.___ 6 . 

Set currCTL = CurrBar.Controls.Add 
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currCTL.Typex = 1 
currCTLID = 353 
currCTL.Index = 6 

currCTL.Caption = "Include Others...." 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "Ctrl+Shift+B" 

currCTL.Style = 3 

■_„ 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 2617 
currCTL.Index = 7 
currCTLCaption = "&Send" 
currCTL.DescriptionText - "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 2617 
currCTLShortcutText = "Ctrl+Enter" 

currCTL.Style = 3 

... 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 354 
currCTL.Index = 8 
currCTL.Caption = "Reply" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 354 
. currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 



2i7 
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» 



■„. 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 355 
currCTLIndex = 9 
currCTL.Caption = "Reply to A&ll" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceid = 355 
currCTL.ShortcutText = "Ctrl+Shift+R" 

currCTL.Style = 3 

«... 10 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 356 
currCTL.Index = 10 
currCTL.Caption = "Forward" 

-i 

currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceid = 356 
currCTL.ShortcutText = "Ctrl+F" 
currCTL.Style = 3 

1 1 

Set currCTL - CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 360 
currCTL.Index = 11 
currCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
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currCTL.Faceld = 360 
currCTL.ShortcutText = "Ctrl+>" 
currCTL.Style = 3 

•_„ 12 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 359 
currCTL. Index = 12 
currCTL. Caption = "Previous Item" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 359 
currCTLShortcutText = "Ctrl+<" 

currCTL.Style = 3 

...13 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5571 
currCTL.Index = 13 
currCTL.Caption = "&Font Size" 
cu rrCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 5571 
currCTLShortcutText = "" 
currCTL.Style = 0 

1 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 2 
currCTL.Index = 14 



219 

currCTL.Caption = "Spell Check" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Face Id = 2 
currCTL.ShortcutText = "F7" 
currCTL.Style = 3 

-i 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 12 
currCTL.ID = 261 1 
currCTL.Index = 15 
currCTL.Caption = "&Font Color" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

* 

1 6 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 

currCTL.ID = 19 

currCTL.Index = 16 

currCTL.Caption = "Copy" 

currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = True 

currCTL.Faceld = 19 

currCTL.ShortcutText = "Ctrl+C" 

currCTL.Style = 0 

! 7 

Set currCTL = CurrBar.Controls.Add 
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currCTL.Typex = 1 
currCTLID = 22 
currCTL.Index = 17 
currCTL.Caption = "Paste" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 22 
currCTL.ShortcutText = "Ctrl+V" 

currCTL.Style = 0 

■„. ! 8 

Set currCTL - CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 128 
currCTLlndex = 18 
currCTLCaption = "&Undo" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceid = 128 
currCTL.ShortcutText = "Ctrl+Z" 

currCTL.Style = 0 

•_„ 19 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.lD = 5573 
currCTL.Index = 19 
currCTL.Caption = "Forward this Item" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 39 
currCTL.ShortcutText = "" 
currCTL.Style = 3 
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.... 20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 777 
currCTLIndex = 20 
currCTL.Caption = "Fi&le..." 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 777 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1714 
currCTL.Index = 21 
currCTL.Caption = "&Document Map 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1714 
currCTL.ShortcutText = "" 
currCTLStyle = 0 

'—Bar 4 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Form Design" 
CurrBar. Visible = False 

'--Bar 5 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Response" 
CurrBar. Visible = False 
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'—Bar 6 

' Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Formatting" 
CurrBar. Visible = False 

'—Bar 7 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Clipboard" 
CurrBar. Visible = False 

•—Bar 8 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Menu Bar" 

CurrBar. Visible = True 
.... 1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30131 
currCTL. Index = 1 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

'— 2 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 10 

currCTL.ID = 30122 

currCTL.Index = 2 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
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currCTL-ShortcutText = "" 
currCTL.Style = 0 

■__ 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30130 
currCTL.Index = 3 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL-ShortcutText = "" 
currCTL.Style = 0 

4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30127 
currCTL.Index = 4 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL-ShortcutText = "" 
currCTL.Style = 0 

■„. 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30002 
currCTL.Index = 5 
currCTL.Caption = "&File" 
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currCTL.DescriptionText = " , ' 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

«... 6 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTUD = 30003 
currCTL. Index = 6 
currCTL.Caption = "&Edit" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = 
currCTL.Style = 0 

7 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30004 
currCTL. Index = 7 
currCTL.Caption = "&View u 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

.... 8 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
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i 

currCTUD = 30005 
currCTL. Index = 8 
currCTL.Caption = "&lnsert" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 

... g 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTUD = 30006 
currCTL.lndex = 9 
currCTL.Caption = "F&ormat" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL. Face Id = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

.... 1 o 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30007 
currCTL.lndex = 10 
currCTL.Caption = "&Tools" 
currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 



! 

i 

i 

2^6 

* 

»_ 1 -I 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTLlD = 30145 

currCTLIndex= 11 
currCTL.Caption = "Fo&rm" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcufText = 

currCTL.Style = 0 

1 2 - 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30146 
currCTL. Index = 12 
currCTL.Caption = "&Layout" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLiShortcutText = "" 
currCTL.Style = 0 

... 1 3 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
currCTL.ID = 30010 
currCTL.Index =13 
currCTL.Caption = "Microsoft Help " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
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currCTL.ShortcutText = "" 
currCTL.Style = 0 

•—.14 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1576 
currCTL.Index= 14 
currCTL.Caption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 59 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

•_._15 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1665 
currCTL. Index =15 
currCTL.Caption = "Make New Item 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1665 
currCTLShortcutText = "" 
currCTL.Style = 3 

... 1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1758 
currCTL.Index = 16 
currCTL.Caption = "New Idea" 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1758 
currCTL.ShortcutText = "Ctrl+Shift+N" 

currCTL.Style = 3 

.... 17 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 354 
currCTL. Index =17 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 

currCTL. Faceld = 0 
currCTL.ShortcutText = "Ctrl+R" 

currCTL.Style = 3 

• — is 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1679 
currCTL. Index = 18 

currCTLCaption = "Decide What To Do With It 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 49 
currCTL.ShortcutText = "Ctrl+Shift+V" 

currCTL.Style = 3 

... 1 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
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. * 

currCTL.ID = 1976 
currCTL. Index = 19 
currCTLCaption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 3 

•__ 20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.lD = 356 
currCTL.Index = 20 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "Ctrl+F" 

currCTL.Style = 3 

■„. 21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.lD = 478 
currCTL.Index = 21 
currCTL.Caption = "Ditch It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "Ctrl+D" 
currCTLStyle = 3 



s 
I 
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'—Bar 9 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Standard" 

CurrBar. Visible = True 

-j 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex - 1 
currCTL.ID = 201 1 
currCTL.Index = 1 
currCTLCaption = "Close Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 201 1 
currCTLShortcutText = "Alt+F4" 

currCTL.Style = 2 

•„. 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1975 
currCTL.Index = 2 
currCTL.Caption = "Save and Close 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTLShortcutText = "" 
currCTL.Style = 3 

.... 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1975 
currCTL.Index = 3 



I 
i 
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currCTL.Caption = "Save and Close" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

4 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTLID = 30005 
currCTL.Index = 4 
currCTLCaption = "Get Resources" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTLStyle = 0 

'— 5 

Set currCTL = CurrBar.Controls.Add 

currCTLTypex = 1 

currCTL.ID = 5604 

currCTL.Index = 5 

currCTLCaption = "Edit this Mail" 

currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = False 

currCTL.Faceld = 31 

currCTL-ShortcutText = "" 

currCTL. Style = 3 

.._ 6 

Set currCTL = CurrBar.Controls.Add 
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currCTL.Typex = 1 
currCTL.ID = 109 
currCTL. Index = 6 
currCTL.Caption = "Print Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2144 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

7 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 

currCTL.ID = 1978 

currCTL. Index = 7 

currCTL.Caption = "Craft eMail" 

currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = True 

currCTL.Faceld = 1978 

currCTL.ShortcutText = " 

currCTL.Style = 3 

8 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 353 
currCTL.Index = 8 

currCTL.Caption = "Include Others...." 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace - False 
currCTL.Faceld =0 
currCTL.ShortcutText = "Ctrl+Shift+B" 

currCTLStyle = 3 
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... 9 

Set currCTL = CurrBar. Controls. Add 
currCTL.Typex = 1 
currCTL.ID = 2617 
currCTL.Index = 9 
currCTL.Caption = "&Send" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2617 
currCTL.ShortcutText = "Ctrl+Enter" 

currCTL.Style = 3 

»_ 10 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2004 
currCTL.Index =10 
currCTL.Caption = "Cancel Delegation 
currCTL.DescriptionText =s " n 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = 
currCTL.Style = 3 

! i 

Set currCTL = CurrBar.Contrbls.Add 
currCTL.Typex = 1 
currCTL. ID = 354 
currCTL.Index =11 
currCTL.Caption = "Reply" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
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currCTL.Faceld = 354 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 

1 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 355 
currCTL.Index = 12 
currCTLCaption = "Reply to A&ll" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

currCTL.Faceld = 355 
currCTLShortcutText = "Ctrl+Shift+R" 

currCTL.Style = 3 

i._ 1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 356 
currCTL.Index =13 
currCTL.Caption = "Forward" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

currCTL.Faceld = 356 
currCTL.ShortcutText = "Ctrl+F" 

currCTLStyle = 3 

■„_14 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =1 
currCTLID = 1977 
currCTL.Index = 14 
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currCTL.Caption = "Recurring Task" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Style = 3 

15 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2985 
currCTL.Index = 15 

currCTL.Caption = "Mark This Task Complete" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2985 
currCTL-ShortcutText = "" 
currCTLStyle = 3 

1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1760 

i 

currCTL.Index = 16 

currCTL.Caption = "Send Task Status Update" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1760 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

•„. 17 

Set currCTL = CurrBar.Controls.Add 
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currCTL.Typex = 1 

currCTL.ID = 5433 

currCTL.Index = 17 

currCTL.Caption = "New Appointment" 

currCTL.DescriptionText = "" 

a 

currCTL.BuiltlnFace = False 
currCTL.Faceld = 21 48 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.lD = 1979 
currCTL.Index = 18 
currCTL.Caption = "New Task" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1 979 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

1 9 — 

Set currCTL - CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID ~ 360 
currCTL.Index =19 
currCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 360 
currCTL.ShortcutText = "Ctrl+>" 
currCTL.Style = 3 



1 
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«... 20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 359 
currCTL.Index = 20 
currCTL. Caption = "Previous Item" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTL. Faceld = 359 
currCTLShortcutText = "Ctrl+<" 

currCTL.Style = 3 

■_„ 21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5571 
currCTL.Index = 21 
currCTL.Caption = "&Font Size" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 5571 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

■_„ 22 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID= 1977 
currCTL.Index = 22 
currCTL.Caption = "Recurring Event" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 



! 
: 
• 

! 
i 

I 

• 
■ 

238 

t 

■ 

currCTL.Faceld = 1977 
currCTLShortcutText = "Ctrl+G" 
currCTL.Style = 3 

'— 23 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 1987 
currCTL.Index = 23 
currCTL.Caption = "Check Diary" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1987 
currCTLShortcutText = "" 
currCTL.Style = 3 

24 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 1086 
currCTL.Index = 24 

currCTL.Caption = "l&nvite Attendees.. 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

currCTL Faceld = 1086 
currCTLShortcutText = "" 

currCTL.Style = 3 

•„. 25 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2 
currCTL.Index = 25 
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currCTL.Caption = "Spell Check" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2 
currCTL.ShortcutText = "F7" 
currCTL.Style = 3 

«... 26 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =12 
currCTL.ID = 261 1 
currCTL.Index = 26 
currCTL.Caption = "&Font Color" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

27 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 19 
currCTL.Index = 27 
currCTL-Caption = "Copy" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 19 
currCTL.ShortcutText = "Ctrl+C" 
currCTL.Style = 0 

... 28 

Set currCTL = CurrBar.Controls.Add 



240 

currCTL.Typex = 1 
currCTL.ID = 22 
currCTL. Index = 28 
currCTL.Caption = "Paste" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL-Faceld = 22 
currCTL.ShortcutText = "Ctrl+V" 
currCTL.Style = 0 

29 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 128 
currCTL. Index = 29 
currCTL.Caption = "&Undo" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 128 
currCTL.ShortcutText = "Ctrl+Z" 
currCTL.Style = 0 

... 30 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5573 
currCTL.Index = 30 
currCTL.Caption = "Forward this Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 39 
currCTL.ShortcutText = "" 
currCTL.Style = 3 
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... 31 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 777 
currCTL.Index = 31 
currCTLCaption = "Fi&le..." 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTLFaceld = 777 
currCTLShortcutText = "" 

currCTL.Style = 0 

.... 32 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 1714 
currCTL.Index = 32 
currCTLCaption = "&Document Map" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1714 
currCTLShortcutText - "" 
currCTL.Style = 0 

'—Bar 1 0 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Form Design" 
CurrBar. Visible = False 

'—Bar 1 1 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Response" 
CurrBar. Visible = False 
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'—Bar 12 

Set CurrBar = ReadBars.Add 
CurrBar.Namex = "Formatting" 
CurrBar. Visible = False 

End Sub 

Public Sub SetTaskBarslnfo_old() 
Dim CurrBar As ClassCmdBar 
Dim currCTL As ClassCmdControl 

'---Bar 1 

Set CurrBar = TaskBars.Add 
CurrBar.Namex = "Clipboard" 
CurrBar. Visible = False 

—Bar 2 

Set CurrBar = TaskBars.Add 
CurrBar.Namex = "Menu Bar" 
CurrBar. Visible = True 

I A 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30131 
currCTL.Index= 1 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
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currCTL.ID = 30122 
currCTL. Index = 2 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

'.„ 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30130 
currCTL.Index = 3 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30127 
currCTL.Index = 4 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 

cu rrCTL. B u iltl n Face = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 
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Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 0 
CurrCTL.ID = 30002 
currCTL.Index = 5 
currCTL.Caption = "&File" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

... 6 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30003 
currCTL.Index = 6 
currCTL.Caption = "&Edit" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL. Style = 0 

.... 7 

Set currCTL = CurrBar.ControIs.Add 
currCTLTypex = 10 
currCTL. ID = 30004 
currCTL.Index = 7 
currCTL.Caption = "&View" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
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currCTLShortcutText = "" 
currCTL.Style = 0 

... 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTLID =30005 
currCTL. Index = 8 
currCTL.Caption = "&lnsert" 
currCTL. DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

■„. g 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30006 
currCTL.Index = 9 
currCTL.Caption = "F&ormat" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

«... 10 

Set currCTL = CurrBar.Controls.Add 
currCTL-Typex = 10 
currCTUD = 30007 
currCTL.Index = 10 
currCTLCaption = "&Tools" 
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currCTL.DescriptionText = "" 

4 

currCTL.BuiltlnFace = False 

currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

■_„ ! 1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30145 
currCTL.Index = 11 
currCTL.Caption = "Fo&rm" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 

■„_ -i 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30146 
currCTL.Index = 12 
currCTL.Caption = "&Layout" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 

currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

.„ 13 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
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currCTL.ID = 30010 
currCTL.Index = 13 
currCTL.Caption = "Microsoft Help " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

»_. 14 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1576 
currCTL.Index = 14 
currCTL.Caption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltinFace = False 
currCTLFaceld = 59 
currCTLShortcutText = "" 
currCTL.Style = 3 

•„_ -i 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1665 
currCTL.Index =15 
currCTL.Caption = "Make New Item 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1665 
currCTL.ShortcutText = "" 
currCTL.Style = 3 
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■_. ! 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1758 
currCTL. Index =16 
currCTL.Caption = "New Idea" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

currCTL.Faceld = 1758 
currCTLShortcutText = "Ctrl+Shift+N" 

currCTL.Style = 3 

■ 

■„. 17 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 354 
currCTL.Index = 17 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2151 
currCTLShortcutText = "Ctrl+R" 
currCTL.Style = 3 

■— 1 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1679 
currCTL.Index = 18 

currCTL.Caption = "Decide What To Do With It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 49 



249. 

currCTL.ShortcutText = "Ctrl+Shift+V" 
currCTL.Style = 3 

.... -jg 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1976 
currCTL. Index =19 
currCTLCaption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 2141 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... 20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 356 
currCTL. Index = 20 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTLShortcutText = "Ctrl+F" 
currCTLStyle = 3 

« 

•„. 21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 

currCTL.ID = 478 
currCTL. Index = 21 
currCTLCaption = "Ditch It" 
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ft 

currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 67 
currCTL.ShortcutText = "Ctrl+D" 
currCTL.Style = 3 

'—Bar 3 

Set CurrBar = TaskBars.Add 

CurrBar.Namex = "Standard" 

CurrBar. Visible = True 
■„. 1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.lD = 201 1 
currCTL.Index = 1 
currCTL.Caption = "Close Item" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 201 1 
currCTLShortcutText = "Alt+F4" 
currCTL.Style = 2 

2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLID = 1975 
currCTL.Index = 2 
currCTL.Caption = "Save and Close 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTL.ShortcutText = "". 
currCTL.Style = 3 



i 

■ 

251 

« 

... 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
CurrCTL.ID = 1975 
currCTL. Index = 3 
currCTL.Caption = "Save and Close" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTL.ShortcutText 
currCTL.Style = 3 

'— 4 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 10 
currCTL. ID = 30005 
currCTL.lndex = 4 
currCTL.Caption = "Get Resources" 
currCTL.DescriptionText = "" 
currCTL-BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

•„_ 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 5604 
currCTL.lndex = 5 
currCTL.Caption = "Edit this Mail" 
currCTL.DescriptionText = "" 
currCTL-BuiltlnFace = False 
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currCTL.Faceld = 31 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

6 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 109 
currCTL.Index = 6 
currCTL.Caption = "Print Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2144 
currCTLShortcutText = "" 
currCTL.Style = 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1978 
currCTL.Index = 7 
currCTL. Caption = "Craft eMail" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1978 
currCTLShortcutText = "" 
currCTL Style = 3 

... 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 353 
currCTL.Index = 8 
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currCTL. Caption = "Include Others...." 
currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "Ctrl+Shift+B" 

currCTL.Style = 3 

"... 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2617 
currCTL.Index = 9 
currCTL.Caption = "&Send" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTL. Faceld = 2617 
currCTLShortcutText = "Ctrl+Enter" 
currCTLStyle = 3 

•„. 1 o 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2004 
currCTL.Index = 10 
currCTL.Caption = "Cancel Delegation 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... 1 1 

Set currCTL = CurrBar.Controls.Add 
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currCTL.Typex = 1 
currCTL.ID = 354 
currCTL. Index =11 
currCTLCaption = "Reply" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 354 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 

■_„ -i 2 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 355 
currCTL.Index = 12 
currCTLCaption = "Reply to A&ll" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

cu rrCTL. Facel d = 355 
currCTL.ShortcutText = "Ctrl+Shift+R" 

currCTL.Style = 3 

i 3 

Set currCTL = CurrBar.ControIs.Add 
currCTLTypex = 1 
currCTL. ID = 356 
currCTL.Index = 13 
currCTL.Caption = "Forward" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 356 
currCTL.ShortcutText = "Ctrl+F" 
currCTL.Style = 3 
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-i 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL.Index = 14 
currCTL.Caption = "Recurring Task" 
currCTL.DescriptionText = " M 
currCTL.BuiltlnFace = True 
currCTLFaceld = 1977 
currCTL.ShortcutText = "Ctri+G" 
currCTL.Style = 3 

■„_ 15 . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2985 
currCTL. Index = 15 

currCTL.Caption = "Mark This Task Complete 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceid = 2985 
currCTL.ShortcutText = 
currCTL.Style = 3 

! 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1760 
currCTL.Index = 16 

currCTL.Caption = "Send Task Status Update 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 



! 
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currCTL.Faceld = 1760 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

.... 1 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTUD = 5433 
currCTLIndex = 17 
currCTL.Caption = "New Appointment" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2148 
currCTLShortcutText = "" 
currCTL.Style = 3 

18 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1979 
currCTL.lndex = 18 
currCTL. Caption = "New Task" 
currCTL. DescriptionText - "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1979 
currCTLShortcutText = "" 
currCTL. Style = 3 

.... -| g 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 360 
currCTL.lndex =19 



4 

! 
* 

2$7 

currCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTL.Faceld = 360 
currCTL.ShortcutText = "Ctrl+>" 

currCTL.Style = 3 

.... 20 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 359 
currCTL. Index = 20 
currCTL.Caption = "Previous Item" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTLFaceld = 359 
currCTL.ShortcutText = "Ctrl+<" 

currCTL.Style = 3 

•„. 21 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTLlD = 5571 
currCTL. Index = 21 
currCTLCaption = "&Font Size" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 5571 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

22 

Set currCTL = CurrBar.Controls.Add 
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currCTL.Typex = 1 
currCTLID = 1977 
currCTL.Index = 22 
currCTL.Caption = "Recurring Event" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Style = 3 

„. 23 

Set currCTL = CurrBar. Controls. Add 
currCTL.Typex = 1 
currCTL.ID = 1987 
currCTL.Index = 23 
currCTL.Caption = "Check Diary" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTLFaceld = 1987 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

•_„ 24 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1086 
currCTL.Index = 24 
currCTL.Caption = "l&nvite Attendees. 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1086 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

* 
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•„. 25 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 2 
currCTL.Index = 25 
currCTL.Caption = "Spell Check" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2 
currCTL.ShortcutText = "F7" 
currCTL.Style = 3 

.... 26 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 12 
currCTL. ID = 261 1 
currCTL.Index = 26 
currCTL.Caption = "&Font Color" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

■„. 27 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 19 
currCTL.Index = 27 
currCTL.Caption = "Copy" 
currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = True 
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currCTL.Faceld = 19 
currCTL.ShortcufText = "Ctrl+C" 

currCTL.Style = 0 

... 28 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTUD = 22 
currCTL.Index = 28 
currCTL.Caption = "Paste" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 22 
currCTL.ShortcutText = "Ctrl+V" 
currCTL.Style = 0 

•_„ 29 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 128 
currCTL.Index = 29 
currCTL.Caption = "&Undo" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 128 
currCTL-ShortcutText = "Ctrl+Z" 
currCTL.Style = 0 

«... 30 — 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 5573 
currCTL.Index = 30 



1 
« 
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♦ 

currCTL.Caption = "Forward this Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 39 
currCTLShortcutText = "" 
currCTL.Style = 3 

31 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 777 
currCTL.Index = 31 
currCTLCaption = "Fi&le..." 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 777 
currCTLShortcutText = " 
currCTL.Style = 0 

>._. 32 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1714 
currCTL.Index = 32 
currCTL.Caption = "&Document Map" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1714 
currCTLShortcutText = "" 
currCTL.Style = 0 

'—Bar 4 

Set CurrBar = TaskBars.Add 
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CurrBar.Namex = "Form Design" 
CurrBar. Visible = False 

'—Bar 5 

Set CurrBar = TaskBars.Add 
CurrBar.Namex = "Response" 
CurrBar.Visible = False 

■—Bar 6 

Set CurrBar = TaskBars.Add 
CurrBar.Namex = "Formatting" 
CurrBar.Visible = False 
End Sub 

Public Sub SetTaskBarsInfo() 
Dim CurrBar As ClassCmdBar 
Dim currCTL As ClassCmdControl 

'—Bar 1 

Set CurrBar = TaskBars.Add 
CurrBar.Namex = "Clipboard" 
CurrBar.Visible = False 

'--Bar 2 

Set CurrBar = TaskBars.Add 
CurrBar.Namex = "Menu Bar" 

CurrBar.Visible = True 

-| 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 10 
currCTL.ID = 30131 
currCTL. Index = 1 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Face Id = 0 
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currCTL.ShortcutText = "" 
currCTL.Style = 0 

■„. 2 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
currCTL.ID = 30122 
currCTL. Index = 2 

currCTLCaption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 

3 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
currCTL.ID = 30130 
currCTL.lndex = 3 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 

■ 

currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL. Style = 0 

«... 4 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex =10 
currCTL. ID = 30127 
currCTL.lndex = 4 

currCTL.Caption = "Unlocking OUTLOOK" 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

.... 5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30002 
currCTL.Index = 5 
currCTL.Caption = "&File" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTLFaceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

«... 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL. ID = 30003 
currCTL.Index = 6 
currCTL.Caption = "&Edit" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
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currCTL.ID = 30004 
currCTL. Index = 7 
currCTLCaption = "&View" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

„_ 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL. ID = 30005 
currCTL. Index = 8 
currCTLCaption = "&lnsert" 
currCTL-DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTLStyle = 0 

g 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30006 
currCTL. Index = 9 
currCTL.Caption = "F&ormat" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 
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'.„ 10 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex =10 

currCTL.ID = 30007 

currCTL.Index =10 

currCTL.Caption = "&Tools" 

currCTL.DescriptionText = "" 

currCTL.BuiltlnFace = False 

currCTL. Faceld = 0 

currCTL.ShortcutText = "" 

currCTL.Style = 0 

! ! 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30145 
currCTL.Index =11 
currCTL.Caption = "Fo&rm" 
currCTL.DescriptionText = ,l " 
currCTL.BuiltlnFace = False 

* 

currCTL. Face Id = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

• m -i 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30146 
currCTL.Index = 12 
currCTL.Caption = ,l &Layout" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 



i 

! 
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currCTLShortcutText = "" 
currCTL.Style = 0 

.._ 1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30010 
currCTL. Index = 13 
currCTL.Caption = "Microsoft Help " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Face Id = 0 

■ 

currCTLShortcutText = "" 
currCTLStyle = 0 

14 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1576 
currCTL. Index = 14 
currCTL.Caption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 59 
currCTLShortcutText = "" 

currCTLStyle = 3 

15 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.ID = 1665 
currCTL.Index = 15 
currCTL.Caption = "Make New Item 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1665 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

-.„ 1 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1758 
currCTL.lndex = 16 
currCTL. Caption = "New Idea" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 1758 
currCTL.ShortcutText = "Ctrl+Shift+N" 

currCTLStyle = 3 

1 ...... "| 7 - ---- 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =1 
currCTL. ID = 354 
currCTL.lndex = 17 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = 11,1 
currCTL.BuiltlnFace = False 
currCTLFaceld = 2151 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 

1 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
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currCTL.ID = 1679 
currCTL.Index = 18 

currCTLCaption = "Decide What To Do With It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 49 
currCTL.ShortcutText = "Ctrl+Shift+V" 

currCTL.Style = 3 

1 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1976 
currCTL.Index = 19 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

«... 20 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL. ID = 356 
currCTL. Index = 20 
currCTL.Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2141 
currCTL.ShortcutText = "Ctrl+F" 
currCTL.Style = 3 
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«... 21 

' Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 

' currCTUD = 478 
currCTL. Index = 21 
currCTL.Caption = "Ditch It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False, 
currCTL.Faceld = 67 
currCTL.ShortcutText = "Ctrl+D" 

currCTL.Style = 3 

"—Bar 3 

Set CurrBar = TaskBars.Add 

CurrBar.Namex = "Standard" 

CurrBar.Visible = True 
•„. ! 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTLJD = 201 1 
currCTL. Index = 1 
currCTL.Caption = "Close Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 201 1 
currCTL.ShortcutText = "Alt+F4" 
currCTLStyle = 2 

.... 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1975 
currCTL.Index = 2 
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currCTL.Caption = "Save and Close " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 271 
currCTLShortcutText = "" 
currCTL.Style = 3 

3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30005 
currCTL. Index = 3 
currCTLCaption = "Get Resources" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 

4 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTL.ID = 109 
currCTL.Index = 4 
currCTLCaption = "Print Now" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 2144 
currCTLShortcutText = "" 
currCTLStyle = 3 

.... 5 

Set currCTL = CurrBar.ControIs.Add 
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currCTL.Typex = 1 
currCTL.ID = 1977 
currCTL. Index = 5 
currCTLCaption = "Recurring Task" 
currGTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1977 
currCTL.ShortcutText = "Ctrl+G" 
currCTL.Style = 3 

.... 6 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.lD = 2985 
currCTL. Index = 6 

currCTL.Caption = "Mark This Task Complete" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 2985 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... 7 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL. ID = 1760 
currCTL. Index = 7 

currCTL.Caption = "Send Task Status Update" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1760 
currCTLShortcutText = "" 
currCTL.Style = 3 
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„_ a . 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 360 
currCTL.Index = 8 
cUrrCTL.Caption = "Next Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 360 
currCTL.ShortcutText = "Ctrl+>" 

currCTL.Style = 3 

>„. 9 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTUD = 359 
currCTL.Index = 9 
currCTLCaption = "Previous Item" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

currCTL.Faceld = 359 
currCTL.ShortcutText = "Ctrl+<" 
currCTL.Style = 3 

'»- 1 0 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 

currCTL.ID = 2 

currCTL.Index = 10 

currCTL.Caption = "Spell Check" 

currCTL.DescriptionText = '" , 

currCTL.BuiltlnFace = True 



: 

i 
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currCTL.Faceld = 2 
currCTL.ShortcutText = "F7" 

currCTL.Style = 3 

... 1 1 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =12 
currCTL.ID = 261 1 
currCTL.Index =11 
currCTL.Caption = "&Font Color" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 

currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 

«... 12 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 19 
currCTL.Index = 12 
currCTL.Caption = "Copy" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 19 
currCTLShortcutText = "Ctrl+C" 
currCTL.Style = 0 

"— 1 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 22 
currCTL.Index = 13 
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currCTL.Caption = "Paste" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

i 

currCTL.Faceld = 22 
currCTLShortcutText = "Ctrl+V" 
currCTL. Style = 0 

1 4 

Set currCTL = CurrBar.ControIs.Add 
currCTL.Typex = 1 
currCTLID = 128 
currCTL. Index = 14 
currCTLCaption = "&Undo" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 128 
currCTL.ShortcutText = "Ctrl+Z" 
currCTL.Style = 0 

'—Bar 4 

Set CurrBar = TaskBars.Add 
CurrBar.Namex = "Form Design" 
CurrBar. Visible = False 

-Bar 5 

Set CurrBar = TaskBars.Add 
CurrBar.Namex = "Response" 
CurrBar. Visible = False 

'--Bar 6 — 

Set CurrBar = TaskBars.Add 
CurrBar.Namex = "Formatting" 
CurrBar. Visible = False 
End Sub 
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Public Sub SetMainMenuBarlnfo__old() 
Dim CurrBar As ClassCmdBar 
Dim currCTL As ClassCmdControl 

'--Bar 1 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Clipboard" 
CurrBar. Visible = False 

'--Bar 2 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Menu Bar" 
CurrBar.Visible = True 

' — - 1 -r 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex= 10 
currCTL.ID = 30141 
currCTL.Index = 1 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText= "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 
currCTL. ShortcutText = "" 

currCTLStyle = 0 

■ 

„. 2 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL. ID = 30131 
currCTL.Index = 2 

currCTL.Caption = "Unlocking OUTLOOK 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 0 



1 
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currCTL.ShortcutText = "" 
currCTL. Style = 0 

... 3 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID =30142 
currCTL.Index = 3 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 

* 

currCTL. Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

... 4 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 30149 
currCTL. Index = 4 

currCTL.Caption = "Unlocking OUTLOOK" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTLStyle = 0 

5 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTL.ID = 301 19 
currCTL.Index = 5 

currCTL.Caption = "Unlocking OUTLOOK" 
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currCTL.DescriptionText = "" 
currCTL. Builtln Face = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

e ... , 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 4 
currCTL.lD = 1893 
currCTL.Index = 6 
currCTL.Caption = "Current &View 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

■„. 7 

Set currCTL = CurrBar.Controls.Add 

currCTLTypex = 1 
currCTL.lD = 1094 
currCTL.Index = 7 
currCTL.Caption = "Today " 
currCTL.DescriptionText = 11,1 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1094 
currCTL.ShortcutText = " 
currCTL.Style = 3 

.... 8 

Set currCTL - CurrBar.Controls.Add 
currCTL.Typex = 1 
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currCTL.ID = 1095 
currCTL. Index = 8 
currCTL.Caption = "This Week " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 

■ 

currCTL.Faceld = 1095 
currCTL.ShortcutText = "" 
currCTL.Style = 3 

... g 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1 096 
currCTL.Index = 9 
currCTL.Caption = "This Month " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1096 
currCTLShortcutText = "" 
currCTL.Style = 3 

1 o 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 109 
currCTLJndex = 10 
currCTL.Caption = "Print Now" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2144 
currCTL.ShortcutText = "" 
currCTL.Style = 3 
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1 1 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex =10 
currCTL.ID = 30002 
currCTL.Index =11 
currCTL.Caption = "&File" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

12 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 0 
currCTL.ID = 30003 
currCTLIndex = 12 
currCTLCaption = "&Edit" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = False 

currCTL.Faceld = 0 
currCTLShortcutText = "" 

currCTL.Style = 0 

... 1 3 

Set currCTL - CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30004 
currCTL.Index = 13 
currCTL.Caption = "&View" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
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currCTLShortcutText = "" 
currCTL.Style = 0 

14 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 10 
currCTL.ID = 30176 
currCTL Index = 14 
currCTL.Caption = "Fav&orites" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld - 0 
currCTLShortcutText = "" 

currCTL.Style = 0 

•„. 15 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 0 
currCTL. ID = 30007 
currCTL.Index = 15 
currCTL.Caption = "&Tools" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
cu rrCTL. Faceld = 0 
currCTLShortcutText = "" 
currCTL.Style = 0 

c 

«... 16 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex =10 
currCTLID = 30010 
currCTL.Index =16 
currCTL.Caption = "Microsoft Help" 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 

currCTL.Style = 0 

.... 1 7 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1016 . 
currCTL.Index =17 
currCTL.Caption = "Useful Help" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 

currCTL.Faceld = 59 
currCTL.ShortcutText = "" 

currCTL.Style = 3 

-j 8 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 1758 
currCTL.Index = 18 
currCTL.Caption = "New Idea " 
currCTL DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 1758 
currCTLShortcutText = "Ctrl+Shift+N" 

currCTL.Style = 3 

-j g 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
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currCTL.ID = 1758 
currCTLIndex = 19 
currCTLCaption = "New Idea " 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTLFaceld = 1758 
currCTLShortcutText = "Ctrl+N" 

currCTL.Style = 3 

20 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTLID = 1099 
currCTL.Index = 20 

currCTL.Caption = "New Contact or Project" 
currCTL.DescriptionText = "" 
currCTLBuiltlnFace = True 
currCTLFaceld = 1099 
currCTLShortcutText = "Ctrl+N" 
currCTL.Style = 3 

«... 21 

Set currCTL = CurrBar.Controls.Add 

currCTLTypex = 1 

currCTLID = 5592 
currCTL.Index = 21 

currCTLCaption = " Find An Entry In This Part of OUTLOOK " 
currCTLDescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTLFaceld = 29 
currCTLShortcutText = "" 

currCTL.Style = 3 
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... 22 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 354 
currCTL.Index = 22 
currCTL.Caption = "Deal With It Now" 
currCTL.DescriptionText = 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 2151 
currCTL.ShortcutText = "Ctrl+R" 
currCTL.Style = 3 

•_„ 23 

Set currCTL = CurrBar.Controls.Add 
currCTLTypex = 1 
currCTL.lD = 1679 
currCTL. Index = 23 

currCTLCaption = "Decide What To Do With It" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = False 

currCTL.Faceld = 49 
currCTL.ShortcutText = "Ctrl+Shift+V" 

currCTL.Style = 3 

24 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 356 
currCTL.Index = 24 
currCTL. Caption = "Delegate It" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 2141 
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currCTL.ShortcutText = "Ctrl+F" 
currCTL. Style = 3 

•—25 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 478 
currCTL.Index = 25 
currCTL.Caption = "Ditch It 
currCTL. DescriptionText - "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 67 
currCTL.ShortcutText = "Ctrl+D" 
currCTL.Style = 3 

'„. 26 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL. ID = 21 
currCTL.Index = 26 
currCTL.Caption = "Cu&t" 
currCTL. DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL. Faceld = 21 
currCTL.ShortcutText = "Ctrl+X" 
currCTL.Style = 0 

... 27 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 19 
currCTL.Index = 27 
currCTL.Caption = "&Copy" 
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currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 19 
currCTL.ShortcutText = "Ctrl+C" 
currCTL.Style = 0 

'— 28 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 22 
currCTL.lndex = 28 
currCTL.Caption = "&Paste 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 22 
currCTL.ShortcutText = "Ctrl+V" 
currCTL.Style = 0 

29 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 1 
currCTL.ID = 128 
currCTL.lndex = 29 

« 

currCTL.Caption = " " 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = True 
currCTL.Faceld = 128 
currCTL.ShortcutText = "Ctrl+Z" 
currCTL.Style = 0 

'— 3.0 

Set currCTL = CurrBar.Controls.Add 

currCTL.Typex = 4 
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currCTL.ID = 5454 
currCTL. Index = 30 
currCTL.Caption = "&Find a Contact" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL.Faceld = 0 
currCTL.ShortcutText = "" 
currCTL.Style = 0 

«... 31 

Set currCTL = CurrBar.Controls.Add 
currCTL.Typex = 1 
currCTL.ID = 522 
currCTL. I ndex = 31 

currCTL.Caption = "Personalise OUTLOOK" 
currCTL.DescriptionText = "" 
currCTL.BuiltlnFace = False 
currCTL. Faceld = 480 
currCTL.ShortcutText = "" 
currCTLStyle = 3 

'—Bar 3 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Standard" 
CurrBar. Visible = False 

'—Bar 4 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Web" 
CurrBar. Visible = False 

'—Bar 5 — 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Advanced" 
CurrBar. Visible = False 



'--Bar 6 — 

Set CurrBar = MainBars.Add 
CurrBar.Namex = "Remote" 
CurrBar.Visible = False 



End Sub 
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Appreciate if you could also throw some light on : 

1) whethartha US Authorities will attach the assBts oftha the n 

2) how easy (or rather how difficult) wit. It bo to secura US visas 

3) can she possibly get a US Citizenship bach, should she wish 
Please give ma a shout should you have any quastions. 
Awaiting yours. 
Thanks 
Latha 



Lai ha K. Olavallh 

Managing Consultant, Global Immigration 

Emigra Asia Limitid 
7th Floor. 
No. BO Gloticvstar Road. 
Wanchai. 
Hong Kong 

Tel: +652 - 27837183 
Fax:+852-2353 7542 
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